Cod sursa(job #395248)

Utilizator ALIN1994Alinei Alin Marius ALIN1994 Data 12 februarie 2010 17:15:33
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<iostream.h>
#include<fstream.h>
int main()
{long P,Q,N,T,D;
int R;
fstream f("fractii.in",ios::in),g("fractii.out",ios::out);
f>>N;
P=1;
Q=2;
T=1;
D=2;
R=1;
while (P<=N)
{while (D<=N)
	{if (Q%D==0)
	{if (P%D==0)
		{R=3;
		D=N;
		}
	}
	D=D+1;
	}
	if (R==1)
	T=T+1;
	D=2;
	R=1;
Q=Q+1;
if (Q>N)
{P=P+1;
Q=1;
}
}
g<<T;
}