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

Question

Информатика

Зари

2 сентября, 16:15

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

+5

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