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

Есть ответ
17.12.2022
301

Ответ


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


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.