Cod sursa(job #350795)
Utilizator | Postavaru Stefan the@EyE@ | Data | 25 septembrie 2009 22:20:18 |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
var f,g:text;
p,q,nr,r,cmmdc,N:integer;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
read(f,N);
nr:=0;
p:=1;
q:=1;
if (1<=N) and (n<=1000000) then
for p:=1 to n do
for q:=1 to n do begin
r:=1;
repeat
if (p mod r=0) and (q mod r=0) then cmmdc:=r;
inc(r);
until (r=p+1) or (r=q+1);
if cmmdc=1 then nr:=nr+1;
end;
write(g,nr);
close(f);
close(g);
end.