Var x,l,m: integer; begin readln(x); l: =x; m: =5; - вопрос №8647782520 от denpop648p08mew 29.05.2021 23:50

Question

Информатика: Var x,l,m: integer; begin readln(x); l: =x; m: =5; if l mod 2=0 then m: =24; while l m do if l m then l: =l-m else m: =m-l; writeln(m); end. при этом x 40, xmin=5

denpop648p08mew · Answer

Очень замечательная программа, но задание какое? Что нужно сделать или исправить?...

Var x,l,m: integer; begin readln(x); l: =x; m: =5; if l mod 2=0 then m: =24; while l< > m do if l> m then l: =l-m else m: =m-l; writeln(m); end. при этом x> 40, xmin=5