ПОМОГИТЕ, пожалуйста :) Получив на вход число x этот алгоритм печатает число M. Изв?
ПОМОГИТЕ, пожалуйста :)
Получив на вход число x этот алгоритм печатает число M. Изв??стно что x>100. Укажите наименьшее такое число x при вводе которого алгоритм печатает 16
var x,L,M:integer;
begin
readln(x);
L:=x-16;
M:=x+16;
while L<>M do
if L>M then
L:=L-M
else
M:=M-L;
writeln(M);
end.
Гость
Ответ(ы) на вопрос:
ГостьНе нашли ответ?
Похожие вопросы