Cod sursa(job #32399)

Utilizator kyrkDragos Dumitrescu kyrk 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;
 }