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

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