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

Question

Информатика

Виташа

31 марта, 08:14

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

+4

Ответы (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.