С клавиатуры вводится натуральное число. Нужно вывести ответ «Да», если все его цифры...

0 голосов
66 просмотров

С клавиатуры вводится натуральное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. ПАСКАЛЬ


Информатика (519 баллов) | 66 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

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

begin

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

 then Print('Нет')

 else Print('Да')

end.

(654k баллов)