Question

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.

Answer 1

Label metka;
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.