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.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1-2147483647): 35632105
Количество нечетных цифр в числе равно 5
Решение показано в прилагаемом файле.
<span>не (не (не А)) = не А</span>
<span>-----------------------------------------------</span>
22кбит=22528 байт
43 бит=5.375 байт
22528+5.375=22533.375
вроде бы так