Cod sursa(job #10607)

Utilizator kyrkDragos Dumitrescu kyrk Data 28 ianuarie 2007 19:28:08
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include<iostream.h>
#include<fstream.h>
main()
{
unsigned long a[100000],i,j,n,m,k,s,d,aux,valid;
fstream f("pascal.in",ios::in);
fstream g("pascal.out",ios::out);
f>>n;
f>>m;
s=0;
if(n==1){ if(m==1)g<<(s+1);
	  else g<<s;
	}
if(n==2){ if(m==1)g<<(s+2);
	  else g<<s;
	}
if(n==3){ if(m==2)g<<(s+1);
	  if(m==1)g<<(s+3);
	  if(m>=3)g<<s;
	}
if(n>=4)
{
 valid=0;
 a[1]=1; a[2]=2; a[3]=1;
 i=2;k=4;
 do{
   s=2;
   a[k]=1;i=k-1;
   do{
      a[i]+=a[i-1];
      i--;
      s++;
      }while(s<k);
   if(k==n)valid=1;
   k++;
   }while(valid!=1);
 d=0;
 i=1;
 do{
    if((a[i]%m)==0)d++;
    i++;
    }while(i<=n);
 g<<d;
 }



 return 0;
 }