Написать программу в паскале, используя repeat until - вопрос №424525 от Сабина761 25.10.2021 07:35

Question

Информатика: Написать программу в паскале, используя repeat until . : дана непустая последовательность, оканчивающаяся нулем. найти в ней минимальную цифру.

Сабина761 · Answer

var x,min:integer;beginmin:=999999;repeatreadln(x);if (min x) and (x 0) then min:=x;until x=0;writeln(min);end....