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

могу посодействовать, но написать программку могу только, используя while.

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

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

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

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