Cod sursa(job #4073)

Utilizator ProtomanAndrei Purice Protoman Data 30 decembrie 2006 10:24:50
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var n,nr,i,j,a,b,c:longint; f1,f2:text;
begin
assign(f1,'fractii.in');
reset(f1);
assign(f2,'fractii.out');
rewrite(f2);
read(f1,n);
for i:=2 to n do
for j:=2 to n do begin
a:=i;
b:=j;
while b>1 do begin
c:=a mod b;
a:=b;
b:=c;
end;
if b=1 then inc(nr);
end;
nr:=nr+2*n-1;
write(f2,nr);
close(f1);
close(f2);
end.