Задание:
Написать программу в паскале, используя repeat until. Задача: Дана непустая последовательность, оканчивающаяся нулем. Найти в ней минимальнуюцифру.
Решение:
var x,min: integer; beginmin: =999999; repeatreadln (x); if (min>x) and (x<>0) then min: =x; until x=0; writeln (min); end.
Знаете другой ответ?