Cod sursa(job #250533)

Utilizator botaMihai Botezatu Catalin bota Data 31 ianuarie 2009 09:51:50
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var a,b:text;
    i,j,n,x,nr,y:longint;
begin
assign(a,'fractii.in');
reset(a);
assign(b,'fractii.out');
rewrite(b);
read(a,n);nr:=n;
for i:=2 to n do begin
for j:=1 to n do begin
x:=i;y:=j;
while x<>y do
if x>y then x:=x-y
       else y:=y-x;
if (x=1) then nr:=nr+1;
end;
end;
if n=1 then nr:=1;
write(b,nr);
close(a);
close(b);
end.