Cod sursa(job #976988)

Utilizator otnielMercea Otniel otniel Data 24 iulie 2013 15:19:28
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.74 kb
#include<iostream>
using namespace std;
#include<stdio.h>
FILE *f,*g;
int r,d,i,j,a[100],k=1,m,prima=1,doua,diferenta,jfact=1,diffact=1,nr;
int main()
{
    f=fopen("pascal.in","r");
    g=fopen("pascal.out","w");
    fscanf(f,"%d%d",&r,&d);
    a[0]=0;
    a[r]=0;
    for(j=1;j<r;j++)
       {while(k<=r)
       {prima=prima*k;
       k++;}
       k=1;
       diferenta=r-j;
       while(k<=j)
       {jfact=jfact*k;
       k++;}
       k=1;
       while(k<=diferenta)
       {diffact=diffact*k;
       k++;}
        doua=prima/(diffact*jfact);
        a[j]=doua;
        prima=1;
        jfact=1;
        diffact=1;
        k=1;
       }
       for(i=1;i<r;i++)
      if(a[i]%d==0)
      nr++;
      fprintf(g,"%d",nr);
}