Var x, L, M: integer;

begin

readln (x) ;

L:=x;

M:=5;

if L mod 2=0 then

M:=24;

while LM do

if L>M then

L:=L-M

else M:=M-L;

writeln (M) ;

end.

при этом x>40, xmin=5

Правильный ответ на вопрос 👍 «Var x, L, M: integer; begin readln (x) ; L:=x; M:=5; if L mod 2=0 then M:=24; while LM do if L>M then L:=L-M else M:=M-L; writeln (M) ; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!