Ответы на вопрос:
Var min, n, r, m: integer; 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.
Популярно: Информатика
-
КристинаМельникова04.11.2020 14:15
-
xxx17019.11.2020 09:44
-
petrovvalera0512.02.2021 07:16
-
ilonabagdasarya108.05.2020 20:21
-
serega22800225.02.2023 02:36
-
Dan1L1an27.04.2023 07:44
-
ketti20409.12.2022 04:06
-
Appolinaria0623.07.2020 10:47
-
VADIMSTRENDG10.04.2022 10:28
-
ok68300002.04.2020 08:42