Cod sursa(job #692748)

Utilizator bogdan9014Bardi Bogdan bogdan9014 Data 26 februarie 2012 19:07:54
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
var f,g:text;
    n,i,k,j:longint;
begin assign(f,'fractii.in'); reset(f); assign(g,'fractii.out'); rewrite(g);
read(f,n); k:=n;
for i:=2 to n do begin   k:=k+1;
for j:=1 to n do if(i mod j<>0) and (j mod i<>0) then k:=k+1; end;
write(g,k);
close(g);
end.