Cod sursa(job #833692)

Utilizator pcristeaCristea Petru pcristea Data 12 decembrie 2012 22:13:03
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var n,k,a,b:word; 
f1, f2:text;

function cmmdc(a,b:longint):longint;
begin
if a=0 then cmmdc:=b else cmmdc:=cmmdc(b mod a, a);
end;
begin
assign(f1, 'fractii.in');
reset(f1);
readln(f1,n);
assign(f2, 'fractii.out');
rewrite(f2);
for a:=1 to n do
begin
for b:=1 to n do 
if cmmdc(a,b)=1 then inc(k);
end;
writeln(f2, k);
close(f2);
end.