Cod sursa(job #3205275)

Utilizator BlaugranasEnal Gemaledin Blaugranas Data 19 februarie 2024 10:05:06
Problema Pascal Scor 10
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<fstream>
using namespace std;
ifstream F("pascal.in");
ofstream G("pascal.out");
int n,m,i,k,c,j;
int main()
{
    for(F>>n>>m,i=1;i<n/2;++i) {
        for(j=n-i+1;j%m==0;j/=m,++c);
        for(j=i;j%m==0;j/=m,--c);
        if(c>0)
            k+=2;
    }
    if(!(n&1)) {
        for(j=n-n/2+1;j%m==0;j/=m,++c);
        for(j=n/2;j%m==0;j/=m,--c);
        if(c>0)
            ++k;
    }
    return G<<k,0;
}