Var x, L, M: integer;

begin

readln(x);

L:= x-145;

M:= x+153;

while L <> M do

if L > M then

L:= L - M

else

M:= M - L;

writeln(M);

end.

Найдите наименьший Х, при котором программа выводит число 13 или доказать, что такого Х не существует.

tata20082    1   11.05.2020 10:17    2