Составьте программу на Паскале
На вход программы поступает неизвестное количество натуральных чисел, ввод заканчивается нулём. Найти минимальное из введённых нечётных чисел
На вход программы поступает неизвестное количество натуральных чисел, ввод заканчивается нулём. Найти минимальное из введённых нечётных чисел
More Questions From This User See All
Answers & Comments
var a, min:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
readln(a);
min:= a;
while(a <> 0) do begin
if (((a mod 2) = 1) and (min > a)) then
min:= a;
readln(a);
end;
writeln('Минимальное нечетное число: ', min);
end.