Cod sursa(job #119116)
| Utilizator | Data | 29 decembrie 2007 16:41:03 | |
|---|---|---|---|
| Problema | Pascal | Scor | 30 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.49 kb |
#include <fstream.h>
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int Putere(int x , int a);
int main()
{
int R , D , i, nr = 0,p;
fin >> R >> D;
if(R % D== 0) nr = 2;
for(i = 2;i <= R-2;i++)
if(Putere(R , D)-((Putere((R-i),D)+Putere(i,D))) > 0) nr++;
fout <<nr;
return 0;
}
int Putere(int x,int a)
{
int b = 0;
for(int j = 2;j <= x;j++)
{
int aux = j;
while(aux % a==0)
{
aux = aux / a;
b++;
}
}
return b;
}