нужно

Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите

наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 15.

var x, L, M: longint;

begin

readln(x);

L := x-30;

M := x+30;

while L <> M do

if L > M then

L := L - M

else

M := M – L;

writeln(M);

end.

YarikPlex    2   03.06.2020 12:33    0