Cod sursa(job #624073)

Utilizator LorenaSfatSfat Lorena LorenaSfat Data 21 octombrie 2011 17:34:42
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program trei;
var f,g: text;
    nr,j,i:integer;
    n:longint;
Begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
nr:=2*n-1;
for i:=2 to n do
  for j:=2 to n do
    if (i mod j <> 0) and (j mod i <> 0)  then
            nr := nr+1;

write(g,nr);
close(f);
close(g);
readln;
End.