Предмет: Информатика,
автор: postnikova
Написать программу в паскале, используя repeat until . Задача: Дана непустая последовательность, оканчивающаяся нулем. Найти в ней минимальную цифру.
Ответы
Автор ответа:
0
var x,min:integer;
begin
min:=999999;
repeat
readln(x);
if (min>x) and (x<>0) then min:=x;
until x=0;
writeln(min);
end.
Интересные вопросы
Предмет: История,
автор: rumiakarimova7
Предмет: Қазақ тiлi,
автор: schoolover0101
Предмет: Математика,
автор: dimakim19072007
Предмет: Алгебра,
автор: dBEPb
Предмет: Математика,
автор: Dasha12343