Cod sursa(job #1346938)

Utilizator ErikHEErik Henning ErikHE Data 18 februarie 2015 18:04:03
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.7 kb
#include <iostream>
#include <fstream>
#include <iomanip>
using namespace std;

ifstream f("pascal.in");
ofstream g("pascal.out");

long long v[5000003], r;

int main()
{
int d, i, k, q, p=1, j, nr=0;
f>>r>>d;
for (i=1;i<=r/2;i++)    {
/*if ((r-i+1)%d==0)
    k=d;
else
    k=(r-i+1)%d;
if (i%d==0)
    q=d;
else
    q=i%d;*/
p= (p * (r-i+1)/i%d) % d;
if (p==0)   {
    nr++;//Rezultatul (cati divizibili)
    p=d;
}
}
nr = nr *2;
if (r%2==0) {
    i=r/2 + 1;
  /*  if ((r-i+1)%d==0)
    k=d;
else
    k=(r-i+1)%d;
if (i%d==0)
    q=d;
else
    q=i%d;*/
p= (p * (r-i+1)/i%d) % d;
if (p==0)   {
    nr++;//Rezultatul (cati divizibili)
    p=d;
}
}
g<<nr;
    return 0;
}