Question

100 БАЛЛОВ

Написать программу на языке Паскаль для решения следующей задачи:


Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе.


На проверку нужно прислать СКРИНШОТЫ окна программы с кодом и результатами работы. Входные данные задать самостоятельно.

Answer 1

##

uses School;

var n := ReadInteger;

var ko := n.Digits.Where(t-> t.IsOdd).Count;

Print('Нечетных', ko, 'четных', 4 - ko)