ТутРешу.Ру

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

Задание:

Написать программу в паскале, используя 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.




Знаете другой ответ?

Отправить свой ответ