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

Question

Информатика

Стенюша

5 июля, 08:46

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

+2

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