Cod sursa(job #484967)
Utilizator | Data | 16 septembrie 2010 17:35:36 | |
---|---|---|---|
Problema | Pascal | Scor | 0 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.52 kb |
#include<fstream>
using namespace std;
long long e(int n,int p)// p=nr. prim
{
int nr=0;
while(n>0)
{nr=nr+n/p;
n=n/p;
}
return nr;
}
int calcul(int r,int k)
{int x,y;
if(k==2||k==3||k==5)
{x=e(r,k);
return x>0;
}
else if(k==6)
{x=e(r,2);
y=e(r,3);
return min(x,y)>0;
}
else {x=e(r,2);
return x>=2;
}
}
int main()
{
int r,d;
ifstream f("pascal.in");
ofstream g("pascal.out");
f>>r>>d;
int nr=0;
for(int i=1;i<r;i++)
nr=nr+calcul(r,i);
g<<nr<<'\n';
}