Cod sursa(job #1844663)

Utilizator Ruxandra985Nanu Ruxandra Laura Ruxandra985 Data 10 ianuarie 2017 11:41:27
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include <cstdio>

using namespace std;
int v[5000001];
int main()
{
    FILE *fin=fopen ("pascal.in","r");
    FILE *fout=fopen ("pascal.out","w");
    int r,d,sol,i,nr;
    fscanf (fin,"%d%d",&r,&d);
    sol=0;
    for (i=1;i<=r;i++){
        nr=i;
        while (nr%d==0){
            v[i]++;
            nr/=d;
        }
        v[i]+=v[i-1];
    }
    for (i=0;i<r;i++){
        if (v[r]-v[r-i]-v[i]>0)
            sol++;
    }
    fprintf (fout,"%d",sol);
    return 0;
}