Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Напишите программу, которая показывает количество нечетных чисел в числе. ( если можно, то без программы 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