Cod sursa(job #634148)

Utilizator teo721Pavel Teo teo721 Data 15 noiembrie 2011 18:54:15
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.9 kb
#include<iostream>
#include<fstream>
using namespace std;
int main()
{
    int i,j,k=0,r,d,n,rf=1,f1,f2,a;
    fstream f("pascal.in",ios::in);
    f>>r;f>>d;
    f.close();
    for(j=2;j<=r;j++)
     rf*=j;
    if(r%2==0) 
    {
      for(i=1;i<r/2;i++)
      {
        f1=1;f2=1;
        for(j=1;j<=i;j++)
          f1*=j;
        for(j=1;j<=r-i;j++)
         f2*=j;
       a=rf/(f1*f2);
      if(a%d==0)
        k+=2;
      }
      i+=1;
      f1=1;f2=1;
       for(j=1;j<=i;j++)
         f1*=j;
       for(j=1;j<=r-i;j++)
         f2*=j;
       a=rf/(f1*f2);
      if(a%d==0)
        k++;
      }
   else
    for(i=1;i<=r/2;i++)
      {
        f1=1;f2=1;
        for(j=1;j<=i;j++)
          f1*=j;
        for(j=1;j<=r-i;j++)
         f2*=j;
       a=rf/(f1*f2);
      if(a%d==0)
        k+=2;
      }
   fstream g("pascal.out",ios::out);
    g<<k;   
    g.close();
}