Cod sursa(job #157128)

Utilizator Senor_Stigiordache alexandru Senor_Stig Data 12 martie 2008 21:23:14
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 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/q<>1) and (p mod q<>0) then inc(c) end.end.
write(g,c); close(g);
end.