С клавиатуры вводится естественное число. Необходимо вывести ответ Да, если все

С клавиатуры вводится естественное число. Нужно вывести ответ Да, если все его числа четные, и ответ Нет в других случаях.

ПАСКАЛЬ

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 if ReadInteger.ToString.Any(c-gt; '13579'.Contains(c))

 then Print('Нет')

 else Print('Да')

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт