Предмет: Информатика,
автор: kirgashevasuan
Дано натуральное число. Определить количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать.(Паскаль)
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: milkywayuwu920
Предмет: Химия,
автор: ivan6418
Предмет: Математика,
автор: davydovskijaleksej
Предмет: Геометрия,
автор: JiganLemon
Предмет: Химия,
автор: Dddddrffeff