С клавиатуры вводится натуральное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.
ПАСКАЛЬ
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
if ReadInteger.ToString.Any(c-> '13579'.Contains(c))
then Print('Нет')
else Print('Да')
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад