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

Question

Информатика

Федула

19 ноября, 18:34

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

+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.