Cod sursa(job #395281)

Utilizator ALIN1994Alinei Alin Marius ALIN1994 Data 12 februarie 2010 18:34:43
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<iostream.h>
#include<fstream.h>
int main()
{long P,Q,N,T,D,C;
int R;
fstream f("fractii.in",ios::in),g("fractii.out",ios::out);
f>>N;
P=2;
Q=1;
T=N;
R=1;
while (P<=N)
{if (Q>P)
C=Q;
else
	C=P;
for (D=2;D<=(C/2);D++)
	{if ((Q%D==0)&&(P%D==0))
		{R=3;
		D=C;
		}
	}
	if ((Q%C==0)&&(P%C==0))
		R=3;
	if (R==1)
	T=T+1;
	R=1;
Q=Q+1;
if (Q>N)
{P=P+1;
Q=1;
}
}
g<<T;
}