begin. while L <> M dobegin. if L > M then

1. Ниже на языке Pascal записан алгоритм. При каком наименьшем двузначном L программа выведет на экран число 4?

var x, L, M: integer;
begin
readln(x);
L: = x;
M: = 36;
while L < > M do
if L > M then
L: = L - M
else
M: = M - L;
writeln(M);
end.

2. Ниже на пяти языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 30.

var x, L, M: integer;

begin

readln (x);

L: =2*x-30;

M: =2*x+30;

while L < > M dobegin

if L > M then

L: = L - M

else

M: = M - L;

end;

writeln (M);

end.

3. Ниже на пяти языках программирования записан алгоритм. Получив на вход число x, этотНа рисунке на пяти языках записан алгоритм. Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 170. Укажите такое (то есть большее 170) наименьшее число x, при вводе которого алгоритм печатает 42.

4. На картинке на пяти языках записан алгоритм. Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 80. Укажите такое (то есть большее 80) наименьшее число x, при вводе которого алгоритм печатает 21.

5. На картинке на пяти языках записан алгоритм. Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 130. Укажите такое (то есть большее 130) наименьшее число x, при вводе которого алгоритм печатает 33.