Cod sursa(job #1661486)
Utilizator | Data | 23 martie 2016 21:50:34 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
#include <iostream>
#include <fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int r,d,x=1,y=1,a,b,i,nr;
int main()
{
f>>r>>d;
b=r;
for(i=1;i<=(b+1)/2;i++)
{
a=x/y;
if(a%d==0)
nr++;
x=x*r;
r=r-1;
y=y*i;
}
a=x/y;
nr=nr*2;
if((b%2==0)&&(a%d==0))
nr++;
g<<nr;
return 0;
}