Паскаль, цикл с предусловием while. Вводится целое положительное число. Найти наименьшую нечетную цифру в числе. Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр"
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
writeln('Введите целое положительное число');
read(n);
min := 10;
r := 1;
while r <> 0 do
begin
m := n mod 10;
if (m < min) and (m mod 2 = 1) then min := m;
r := n div 10;
n := r;
end;
if min = 10 then writeln('В числе нет нечетных цифр') else writeln (min)
end.