Cod sursa(job #1231375)

Utilizator Vasile_RotaruVasea Rotaru Vasile_Rotaru Data 20 septembrie 2014 13:44:01
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program fractii;
 var a,b,n,i,j,c:word;
     f:text;
begin
 assign(f,'fractii.in');
 reset(f);
 readln(f,n);j:=0;
 for a:=1 to n do for b:=1 to n do
  begin
   for i:=1 to a+b do if(a mod i=0)and(b mod i=0) then c:=i;
   if c=1 then inc(j);
  end;
 close(f);
 assign(f,'fractii.out');
 rewrite(f);
 write(f,j);
 close(f);
end.