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

Предыдущий
вопрос Следующий
вопрос

program CountEvenOddDigits;
var
number, digit, countEven, countOdd: integer;
begin
countEven := 0;
countOdd := 0;
writeln('Enter a four-digit number: ');
readln(number);
while number > 0 do
begin
digit := number mod 10;
number := number div 10;
if digit mod 2 = 0 then
countEven := countEven + 1
else
countOdd := countOdd + 1;
end;
writeln('Number of even digits: ', countEven);
writeln('Number of odd digits: ', countOdd);
end.

Скриншот выполненной работы программы: