Cod sursa(job #115647)

Utilizator georgelRector George georgel Data 16 decembrie 2007 19:03:39
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.69 kb
#include<fstream>

using namespace std;

ifstream fin("fractii.in");
ofstream fout("fractii.out");

void ini(int a[10000],long n)
{
     int i;
     for(i = 1; i <= n; i++)
     a[i] = 0;
}
int prim(int q,long n)
{
    int i,j,b[10000];
    long p = 1;
    ini(b,n);
    for(i = 2; i <= n; i++)
    if(q%i == 0)
    for(j = i;j <= n; j++)
    if(j%i == 0)
    b[j] = 1;
    for(i = 2; i <= n; i++)
    if(b[i] == 0)
    p++;
return p;
}
    
void frac(long n)
{
     int i;
     long p=n;
     for(i = 2; i <= n; i++)
     p+=prim(i,n);
fout<<p;
}
int main()
{
 long n;
    fin>>n;
    frac(n);
fin.close();
fout.close();

return 0;
}