Cod sursa(job #267734)

Utilizator shnakoVlad Schnakovszki shnako Data 27 februarie 2009 22:30:52
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include <stdio.h>
FILE *f, *g;
long t=0, i, j, v[500000], r, d, a, b, c;
int main(void)
{
f=fopen("pascal.in", "r");
g=fopen("pascal.out", "w");
fscanf(f, "%ld%ld", &r, &d);
v[1]=1;
for (i=1;i<=r;i++)
	{
   a=0;
   b=0;
   c=1;
	for (j=1;j<=i+1;j++)
   	{
      a=b;
      b=c;
      c=v[j+1];
   	v[j]=a+b;
      }
   }
for (i=1;i<=r;i++)
	if (v[i]%d==0)
   	t++;
fprintf(g, "%ld", t);
fcloseall();
return 0;
}