Cod sursa(job #709884)

Utilizator romykPrehari Romica romyk Data 8 martie 2012 17:41:23
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include <iostream>
#include<fstream>

using namespace std;
fstream f("fractii.in",ios::in);
fstream g("fractii.out",ios::out);

long i,j,v[10000],m,p,q,n,s,d,nr;
int main()
{f>>n;j=1;
 for(i=1;i<=n;i++)
 {s=0;
     for(d=2;d<i/2;d++)
      if(i%d==0)
      s++;
      if(s==0)
      {v[j]=i;
           j++;}   }
  m=j-1;nr=0;
 for(i=1;i<=n;i++)
 for(j=1;j<=n;j++)
 {s=0;
     for(p=1;p<=m;p++)
  if(i%v[p]==0&&j%v[p]==0&&i!=1&&j!=1&&v[p]!=1)
  s++;
 if(s==0)
 nr++;

 }
    g<<nr;
    return 0;
}