Cod sursa(job #32830)

Utilizator RobytzzaIonescu Robert Marius Robytzza Data 18 martie 2007 16:11:32
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.66 kb
#include<fstream.h>
long long a[300000];
int main(){
ifstream fin("fractii.in");
ofstream fout("fractii.out");
long int  N;
fin>>N;
long int nr=N;
for (long int  i=2;i<=N;i++){
for (long int t=0;t<=N;t++)
    a[t]=0;
	  long int x=i;
	  while (x%2==0){
		a[2]=1;
		x/=2;}
	      for (long int h=3;h<=N;h+=2)
		   while (x%h==0){
			 a[h]=1;
			 x/=h;}
	    nr++;
	    for (long int e=2;e<=N;e++) {
		short ok=1;
		for (long int s=1;s<N;s++)
		   if (a[s]!=0)
		    if (e%s==0)
			ok=0;
		    else
		       if (s%e==0)
			   ok=0;
		if (ok==1)
		   nr++;}
	 }
	 if (N%2==1)
	   nr--;
fout<<nr;
fin.close();
fout.close();
return 0;}