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

Question

Камиля

3 января, 08:00

+4

Ответы (1)

Знаете ответ на вопрос?

Альвентина · Answer 1

begin

var a : = 1234567;

var s : = 0;

while a > 0 do

begin

s + = Ord (a mod 10 mod 2 = 0) ;

a : = a div 10;

end;

s. Println;

end.