Cod sursa(job #32399)
| Utilizator | Data | 17 martie 2007 20:14:48 | |
|---|---|---|---|
| Problema | Pascal | Scor | 30 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.54 kb |
#include<iostream.h>
#include<fstream.h>
main()
{
unsigned long i,j,n,m;
long long s,s2,s3,d,k,p,delta,ij;
fstream f("pascal.in",ios::in);
fstream g("pascal.out",ios::out);
f>>i;
f>>d;
j=0;
delta=0;
do{
ij=i-j;
s=0;p=d;
do{
s+=i/p;
p*=d;
}while(p<=i);
s2=0;p=d;
do{
s2+=ij/p;
p*=d;
}while(p<=ij);
p=d;s3=0;
do{
s3+=j/p;
p*=d;
}while(p<=j);
s2+=s3;
s-=s2;
if(s>=1)delta++;
j++;
}while(j<=i);
g<<delta;
return 0;
}
