Cod sursa(job #363715)
Utilizator | Andrei Cabulea andrei_08 | Data | 14 noiembrie 2009 12:28:17 |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
var f,g:text;
n,p,q,min,d,i,s:integer;
begin
assign(f,'fractii.in');
reset(f);
readln(f,n);
close(f);
s:=0;
for p:=1 to n do
for q:=1 to n do
begin
if p>q then min:=q
else min:=p;
d:=1;
for i:=2 to min do
if (p mod i=0) and (q mod i=0) then d:=d+1;
if d=1 then s:=s+1;
end;
assign(g,'fractii.out');
rewrite(g);
writeln(g,s);
close(g);
end.