4. известно, что x > 100. укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 40. var x, l, m: integer; begin readln(x); l : = x-10; m : = x+30; while l < > m do if l > m then l : = l - m else m : = m – l; writeln(m); end.
var x, L, M: integer;
begin
for var i:=100 to 300 do
begin
x:=i
;L := x-10;
M := x+30;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
If (M=40) then
begin
Println(x);
goto metka;
end;
end;
metka:
end.