Question

СРОЧНО ДАЮ 80 БАЛЛОВ
Дана процедура:



procedure nod (a, b: integer; var c: integer);

begin

while a<>b do

if a>b then a:=a-b else b:=b-a;

c:=a

end;



Чему равно значение с после вызова процедуры nod (125, 75, c)?

Answer 1

Ответ:

c = 25

Объяснение:

125 идёт на вход процедуры как a, а 75 идёт как b.

Далее в цикле всё считается и на выходе 25.

Если более точно, первый раз в цикле идёт:

a := 125 - 75 = 50

потом

b := 75 - 50 = 25

потом

b:= 50 - 25 = 25

Итого 3 итерации по итогу которых все переменные равны 25.