Cod sursa(job #96806)

Utilizator bacerandreiBacer Andrei bacerandrei Data 3 noiembrie 2007 16:28:18
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<fstream.h>
long long a[100000],b[100000];
long long r,i,j,k,x,d,nr;

int main()
{
  ifstream f("pascal.in");
  ofstream g("pascal.out");
   f>>r>>d;
  for(int t=1;t<=r+1;t++)
   {
    k=1;
    x=2;
    if(t==1)
     a[1]=1;
    else
    if(t==2)
     {
     a[1]=1;a[2]=1;
    }
    else
     {
      b[1]=1;
      while(k<=t-1)
       {
	b[x]=a[k]+a[k+1];
	x++;
	k++;
       }
      b[x]=1;
     for(i=1;i<=t;i++)
      a[i]=b[i];
    }
   }
  for(i=1;i<=r+1;i++)
   if(a[i]%d==0)
    nr++;
   g<<nr;
   return 0;
}