Cod sursa(job #70363)
Utilizator | Gabriel Bitis gabitzish1 | Data | 5 iulie 2007 17:16:58 |
---|---|---|---|
Problema | Pascal | Scor | 10 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.59 kb |
#include<stdio.h>
long r, d, c, contor;
void citire()
{
freopen("pascal.in","r",stdin);
freopen("pascal.out","w",stdout);
scanf ("%ld %ld",&r,&d);
}
int main()
{
citire();
long i, a,b, x;
for (c=2; c<r; c++)
{
i=d;
contor=0;
while ((c/i)!=0) {contor+=(c/i); i*=d;}
a=contor;
contor=0;
while ((r/i)!=0) {contor+=(r/i); i*=d;}
b=contor;
contor=0;
while ((r-c)/i!=0) {contor+=((r-c)/i); i*=d;}
x=contor;
b=b-x-a;
contor=b;
}
printf("%ld",contor);
return 0;
}