Cod sursa(job #281432)
Utilizator | OLARU SABIN zoltrix | Data | 14 martie 2009 20:36:36 |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.54 kb |
var p,q,o,n,z,i:longint;
f,g:text;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
readln(f,n);
close(f);
z:=0;
for p:=1 to n do begin
for q:=1 to n do begin
o:=0;
if p>q then begin for i:=1 to q div 2 do
if(p mod i=0)and(q mod i=0)or(p mod q=0) then inc(o)
end
else begin for i:=1 to p div 2 do
if(p mod i=0)and(q mod i=0)or(q mod p=0) then inc(o);
end;
if o<2 then inc(z);
end;
end;
writeln(g,z);
close(g);
end.