Дана следующая программа: var a, b, r:integer; begin readln (a, b); while b0 do begin r:=a mod b; a:=b; b:=r; end; writeln (a); end. На вход программе переменной a подаётся значение 39, а переменной b — какое-то натуральное число, строго меньшее 39.

Вопрос от пользователя: Эрнеста

Дана следующая программа:

var a, b, r:integer;

begin

readln (a, b);

while b0 do begin

r:=a mod b;

a:=b;

b:=r;

end;

writeln (a);

end.

На вход программе переменной a подаётся значение 39, а переменной b — какое-то натуральное число, строго меньшее 39. Какое максимально возможное число может вывести программа?

Ответ: Вилен

В программе вычисляется НОД (a, b). Так как a=39 (39=13*3), то при вводе значения b=26 или b=13 получится максимально возможное число = 13.