Cod sursa(job #218936)

Utilizator diabolikblejusca sabin diabolik Data 4 noiembrie 2008 10:19:05
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var n,p,q,i,j,nr:longint;
    f,g:text;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);
close(f);
nr:=0;
 for i:=1 to n do
  begin
   p:=i;
    for j:=1 to n do
     begin
      q:=j;
      if (p mod q<>0)and(q mod p<>0) then inc(nr);
     end;
  end;
writeln(g,nr);
close(g);
end.