Дано натуральное число. Определить количество четных цифр в нем. Совтавное условие и более одного неполного условного оператора не использовать. Паскаль.

Question

Информатика

Матюк

2 августа, 13:55

Дано натуральное число. Определить количество четных цифр в нем. Совтавное условие и более одного неполного условного оператора не использовать. Паскаль.

+1

Ответы (1)

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

Марес · Answer 1

var a, x, k:integer;

begin

write ('Введите натуральное число: ') ;

read (a) ;

x:=a;

k:=0;

while (x>0) do

begin

if (x mod 2=0) then k:=k+1;

x:=x div 10;

end;

writeln ('Количество четный цифр = ', k) ;

end.