Определить кол-во нечетных цифр в числе

Question

Информатика

Ритоха

8 января, 02:32

Определить кол-во нечетных цифр в числе

+4

Ответы (1)

Знаете ответ?

Степуха · Answer 1

Var k, x:integer;

begin

k:=0;

writeln ('Введите число x') ;

read (x) ;

while x>0 do begin

if x mod 10 mod 20 then k:=k+1;

x:=x div 10;

end;

writeln (k) ;

end.