Cod sursa(job #634214)

Utilizator teo721Pavel Teo teo721 Data 15 noiembrie 2011 20:47:22
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.09 kb
#include<iostream>
#include<fstream>
using namespace std;
int main()
{   
    unsigned long int i,j,s[100000],v[100000]={},r,d,k=0;
    fstream f("pascal.in",ios::in);
    f>>r;f>>d;
    f.close();
    v[1]=1;
    i=1;
    if(d==5)  
    {
     while(i<=r+1)
     {
      for(j=1;j<=i;j++)
      {
        s[j]=(v[j]+v[j-1])%10;
      }    
      for(j=1;j<=i;j++)
       v[j]=s[j];
      i++;
      }
     for(i=2;i<=r+1;i++)
      if(v[i]%5==0)
      k++;
     }
    
    
    if(d==2)  
    {
     while(i<=r+1)
     {
      for(j=1;j<=i;j++)
      {
        s[j]=(v[j]+v[j-1])%10;
      }
      for(j=1;j<=i;j++)
       v[j]=s[j];
      i++;
      }
     for(i=2;i<=r+1;i++)
      if(v[i]%2==0)
      k++;
     }
     
     
     if(d==4)
     {
     while(i<=r+1)
     {
      for(j=1;j<=i;j++)
      {
        s[j]=(v[j]+v[j-1])%100;
      }
      for(j=1;j<=i;j++)
       v[j]=s[j];
      i++;
      }
     for(i=2;i<=r+1;i++)
      if(v[i]%4==0)
        k++;
     }
     
     fstream g("pascal.out",ios::out);
    g<<k;
    g.close();
     
}