Cod sursa(job #305301)

Utilizator danalex97Dan H Alexandru danalex97 Data 16 aprilie 2009 21:40:45
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
var n,i,j,c:longint;
    f,g:text;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);
read(f,n);
c:=n*2-1;
for i:=2 to n do
  for j:=2 to n do
    if (i mod j<>0)or(j mod i<>0) then inc(c);
write(g,c);
close(f);
close(g);
end.