Cod sursa(job #523548)

Utilizator gicu_01porcescu gicu gicu_01 Data 18 ianuarie 2011 15:50:54
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var n,i,j,k:longint; f:text;

function cmmdc(a,b:longint):longint;
begin
 if b=0 then cmmdc:=a else
  cmmdc:=cmmdc(b,a mod b);
end;

begin
 assign(f,'fractii.in');
 reset(f);
 read(f,n);
 close(f);
 for i:=1 to n do
  for j:=1 to n do
   if cmmdc(i,j)=1 then inc(k);
 assign(f,'fractii.out');
 rewrite(f);
 writeln(f,k);
 close(f);
end.