Cod sursa(job #1468537)

Utilizator otto1Palaga Vicentiu-Octavian otto1 Data 6 august 2015 12:27:19
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
#include<fstream>
using namespace std;
int R,D,fact,rd;
int main()
{ifstream f("pascal.in");
ofstream g("pascal.out");
f>>R>>D;
for(int i=0;i<=R/2;i++)
{fact=1;
for(int j=1;j<=i;j++)
fact=fact*(R-i+j)/j;
if(fact%D==0)
rd=rd+2-(i==R/2&&R%2==0);
}
g<<rd;
return 0;
}