4. Известно, что x > 100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе...

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.

Comments

130

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.

Comments

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

---

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

---

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

---

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