Cod sursa(job #305309)

Utilizator danalex97Dan H Alexandru danalex97 Data 16 aprilie 2009 22:05:21
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 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:=2*n-1;
if n>1 then
for i:=2 to n do
  for j:=2 to n do
    if (i mod j>0)and(j mod i>0) then inc(c);
write(g,c);
close(f);
close(g);
end.