Информатика

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

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

Question

Информатика

Зинаидка

10 января, 14:10

Информатика

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

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

+2

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