Cod sursa(job #157265)

Utilizator Senor_Stigiordache alexandru Senor_Stig Data 12 martie 2008 22:13:49
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 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);
for p:=1 to n do for q:=1 to n do if (p mod q<>0) then inc(c) end.end.
write(g,c); close(g);
end.