Cod sursa(job #24619)

Utilizator kyrkDragos Dumitrescu kyrk Data 3 martie 2007 01:44:50
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include<iostream.h>
#include<fstream.h>
main()
{
unsigned long i,j,n,m;
long long s,s2,s3,d,k,delta,ij;

fstream f("pascal.in",ios::in);
fstream g("pascal.out",ios::out);
f>>i;
f>>d;
j=0;
delta=0;
do{
   k=1;s=1;
   ij=i-j;
   do{
       s*=k;
       k++;
       }while(k<=i);
   k=1;s2=1;
   do{
      s2*=k;
      k++;
      }while(k<=ij);
   k=1;s3=1;
   do{
      s3*=k;
      k++;
      }while(k<=j);
   s2*=s3;
   s/=s2;
   if(s%d==0)delta++;
   j++;
   }while(j<=i);

g<<delta;




 return 0;
 }