Написать программу в паскале, используя repeat until

Question

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

Answer 1

52

andrey-gw

28 февраля 2023

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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить