Cod sursa(job #1661486)

Utilizator enachecarlaenache carla maria enachecarla 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;
}