Информатика

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

условного оператора не использовать. Паскаль

Question

Информатика

Илюня

22 января, 08:31

Информатика

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

условного оператора не использовать. Паскаль

+3

Ответы (1)

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

Твердислав · Answer 1

Вот Вам совсем без условий:

Var a, n : Integer;

Begin

n:=0;

Readln (a) ;

While a>0 do

Begin

Inc (n, Ord (not Odd (a mod 10))) ;

a:=a div 10;

end;

Writeln ('Чётных цифр: ', n) ;

end.