Cod sursa(job #173902)

Utilizator firewizardLucian Dobre firewizard Data 8 aprilie 2008 11:51:26
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include <stdio.h>
long r,d,i,j,dv[5000000],m[3000],fi=1,nr,s;
int main()
{
    freopen ("pascal.in","r",stdin);
    freopen ("pascal.out","w",stdout);
    scanf("%ld %ld",&r,&d);
    for(i=1;i<=r;i++){fi*=i;dv[i]=fi;}
    
       for (j=1;j<r;++j){
           nr=fi/(dv[r-j]*dv[j]);
           if(nr%d==0)s++;
       }
    printf("%ld",s);
    return 0;
}