<span>в) Олимпиада - правильный ответ</span>
function GCD(u: integer; v: integer):integer;
begin
var r:integer;
while ( v <> 0) do
begin
r := u mod v;
u := v;
v := r;
end;
Result:=u;
end;
Begin
var (n,m):=ReadInteger2();
var gcd_n:=GCD(n,m);
var nod_n:=abs(n*m)/GCD(n,m);
gcd_n.Println;
nod_n.Println;
end.
Есть очень простая формула. Конечное значение плюс 1 и минус начальное.
<span>for I:= 1 to 13 do k:= k-1; ⇒ 13+1-1 = 13 раз
for I:= 3 to 4 do k:=k*1; ⇒ 4+1-3 = 2 раза
for I:= 2 to 2 do k:=k+1</span> ⇒ 2+1-2 = 1 раз