Решить задачу на языке программирования Паскаль и прислать скриншот выполненной работы в программе. 1. Дано четырехзначное число, которое вводится с клавиатуры пользователем. Необходимо посчитать количество четных и нечетных цифр во введенном числе.
На проверку прислать скриншот. Входные данные задать самостоятельно.
Решить задачу на языке программирования Паскаль и прислать скриншот выполненной работы в программе. 1. Дано четырехзначное число, которое вводится с клавиатуры пользователем. Необходимо посчитать количество четных и нечетных цифр во введенном числе.
На проверку прислать скриншот. Входные данные задать самостоятельно.
На проверку прислать скриншот. Входные данные задать самостоятельно.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.
Скриншот выполненной работы программы: