Напишите программу: Посчитать количество четных цифр в числе, введенном с клавиатуры. pascal

Question

Информатика

Стефанида

3 ноября, 09:35

Напишите программу: Посчитать количество четных цифр в числе, введенном с клавиатуры. pascal

+1

Ответы (1)

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

Полюня · Answer 1

Var

a, b, k : integer;

begin

k : = 0;

write ('введите число: ') ;

readln (a) ;

while a 0 do

begin

b : = a mod 10;

if b mod 2 = 0 then inc (k) ;

a : = a div 10

Writeln ('Чётных: ', a) ;

end;

end.