Question

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

не списывать с других иточников!

Answer 1

Ответ:

var a,k2,k1: integer;

begin

k2:=0;

k1:=0;

read(a);

if a mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

if a div 1000 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

if a div 10 mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

if a div 100 mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

write(k2,' ',k1)

end.