Cod sursa(job #2940796)

Utilizator cattyAninisCatrinel catty Data 16 noiembrie 2022 15:17:50
Problema Pascal Scor 30
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.63 kb
#include <bits/stdc++.h>
using namespace std;
ifstream in("pascal.in");
ofstream out("pascal.out");
int n,i,st,d1,j,f,f1,nr,j12;
short d;
int main()
{
    in>>n>>d;
    for(i=1; i<=n/2; ++i)
    {
        if(n-i>=i)
            st=n-i+1,d1=i;
        else st=i+1,d1=n-i;
        for(j=st,f=0; j<=n; ++j)
            for(j12=j; j12%d==0; j12/=d)
                ++f;
        for(j=1,f1=0; j<=d1; ++j)
            for(j12=j; j12%d==0; j12/=d)
                ++f1;
        if(f>f1)
        {
            if(i==n/2 && n%2==0)
                ++nr;
            else
                nr+=2;
        }
    }
    out<<nr;
}