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.

Answer 2

но это опять программно

Answer 3

Не то что просили написал

Answer 4

исправила программу чтобы печаталось только 130, но отредактировать внешний ее вид не хватило времени(

Answer 5

вообще это задание 20 егэ, я сама пользуюсь одним сайтом, там эти задачи анализируются без компа-посмотри если интересно http://kpolyakov.spb.ru/school/ege.htm