Cod sursa(job #557445)

Utilizator sergiu.apostulApostul Sergiu sergiu.apostul Data 16 martie 2011 17:49:23
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program fractii;
var n,i,j,c:longint;
    f:text;
begin
 assign(f,'fractii.in');
 reset(f);
 readln(f,n);
 close(f);
 for i:=1 to n do
  for j:=1 to n do
   if (i=1)or(j=1) then
    inc(c)
   else
    if (i mod j<>0) and (j mod i<>0) then
     inc(c);
 assign(f,'fractii.out');
 rewrite(f);
 write(f,c);
 close(f);
end.