Cod sursa(job #158179)

Utilizator Senor_Stigiordache alexandru Senor_Stig Data 13 martie 2008 15:01:38
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
var f,g:text;
    p,q,n,c:longint;
begin
assign(f, 'fractii.in');
assign(g, 'fractii.out');
reset(f); rewrite(g);
read(f,n); close(f);c:=0;
for p:=1 to n do for q:=1 to n do if (p mod q<>0) or (p/q=1) then inc(c); if p=q then dec(c);
write(g,c); close(g);
end.