Написать программу на языке Паскаль для решения следующей задачи:
Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе
не списывать с других иточников!
Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе
не списывать с других иточников!
More Questions From This User See All
Answers & Comments
Ответ:
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.