Cod sursa(job #568837)
Utilizator | Data | 31 martie 2011 18:55:06 | |
---|---|---|---|
Problema | Pascal | Scor | 10 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
#include<iostream.h>
#include<fstream.h>
int main()
{
fstream f("pascal.in", ios::in);
fstream g("pascal.out", ios::out);
long int R,x,y,i,j;
int D;
f>>R>>D;
i=1; x=R; j=0;
if(R%2==1)
y=R/2+1;
else
y=R/2;
do
{
if(x%D==0)
j++;
i++;
x=x*(R-i+1)/i;
}while(i<=y-1);
if(R%2==0)
j=j*2;
else
if(x%D==0)
j=j*2-1;
else
j=j*2;
g<<j+1;
}