Напишите программу, которая показывает количество нечетных чисел в числе. ( если можно,...

Question

Напишите программу, которая показывает количество нечетных чисел в числе. ( если можно, то без программы while и не слишком мудро)

Comments

могу помочь, но написать программу могу только, используя while.

---

Видимо, имеется в виду количество нечетных цифр в записи числа.

---

А любая попытка написать задачу без циклов типа While/Until наоборот, сделает задачу слишком мудреной.

Answer 1

Var
  k:longint;
  d,n:integer;
begin
  Write('Введите натуральное число (1-2147483647): ');
  Read(k);
  n:=0;
  while k>0 do begin
    d:=k mod 10;
    k:=k div 10;
    if (d mod 2)<>0 then Inc(n)
  end;
  Writeln('Количество нечетных цифр в числе равно ',n)
end.

Тестовое решение:
Введите натуральное число (1-2147483647): 35632105
Количество нечетных цифр в числе равно 5