Написать программу, подсчитывающую количество четных и нечетных цифр в четырехзначном числе. (в паскале с использованием цикла for)

Question

Информатика

Эля

23 сентября, 22:28

Написать программу, подсчитывающую количество четных и нечетных цифр в четырехзначном числе. (в паскале с использованием цикла for)

+2

Ответы (1)

Знаете ответ на вопрос?

Зинич · Answer 1

Var a, b1, b2, c, i:integer;

begin

readln (a) ;

for i:=1 to 4 do begin

c:=a mod 10;

if c mod 2 = 0 then b1+=1 else

b2+=1;

a:=a div 10;

end;

writeln ('Четных - ', b1,' нечетных - ', b2) ;

end.