С клавиатуры вводится натуральное число. Определите сколько в его записи нечетных чисел

Question

Информатика

Людаша

23 мая, 17:32

С клавиатуры вводится натуральное число. Определите сколько в его записи нечетных чисел

+2

Ответы (1)

Знаете ответ на вопрос?

Митродора · Answer 1

Var n: longint;

k: integer;

begin

k:=0;

write ('Введите число: ') ;

readln (n) ;

while n>0 do

begin

if n mod 10 mod 20 then

k:=k+1;

n:=n div 10;

end;

writeln ('В числе ', k,' нечетных цифр') ;

readln;

end.