Cod sursa(job #357507)

Utilizator VladAkeeeVlad Raduta VladAkeee Data 19 octombrie 2009 16:53:43
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var f,g:text;
    n,i,j:longint;
    nr:integer;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);nr:=n-1;
for i :=1 to n do
    for j:=1 to n do

       if i mod j<>0then
          inc(nr);

write(g,nr);
close(g);
close(f);
end.