Cod sursa(job #260214)

Utilizator yippeeErja Eduard yippee Data 16 februarie 2009 20:16:24
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var n,i,j,k: integer;
    f,g: text;
begin
  assign(f,'fractii.in');
  reset(f);
  assign(g,'fractii.out');
  rewrite(g);
  read(f,n);
  k:=0;
  for i:=1 to n do
   for j:=1 to n do
     if (((i mod j<>0) and (j mod i<>0)) or ((i=1) or (j=1))) then inc(k);
  writeln(g,k);
  close(f);
  close(g);
end.