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

Question

Информатика

Якуб

3 июня, 19:18

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

+5

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