Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
kamfetisova201
08.08.2020 07:24 •
Информатика
Склавиатуры вводится натуральное число. нужно вывести ответ «да», если все его цифры четные, и ответ «нет» в остальных случаях. паскаль
Ответ:
JaspeR9
27.08.2020 11:13
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!
begin
if ReadInteger.ToString.Any(c-> '13579'.Contains(c))
then Print('Нет')
else Print('Да')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vjvxjbnkgsvjsvs
16.07.2021 05:51
Ниже в табличной форме представлен фрагмент базы данных о погоде. дата температура (°с) давление (мм рт. ст.) ветер (м/с) осадки 01.05.2010 17 754 9 нет 02.05.2010 16 752 11...
XxxJEKxxX
14.11.2020 13:33
Придумать девиз об информатике 5 класс...
PoL811
14.11.2020 13:33
Var k, m, day: integer; dat: array[1..7] of integer; begin dat[1]: =7; dat[2]: =9; dat[3]: =10; dat[4]: =8; dat[5]: =6; dat[6]: =7; dat[7]: =6; day: = 1; m: =dat[1]; for k:...
cat0708200416
15.02.2023 04:02
Какой цвет получится, если установить в режиме color r=255 g= 0 b=255 ?...
Игорь123454321
28.08.2021 07:19
Три друга влад, егор и митя купили в спортивном магазине три разных мяча белого, красного и голубого цвета. владу достался не белый мяч, а егору не голубой. белый мяч был не...
mantsigina
28.08.2021 07:19
Примеры информационных сообщений которые несут 1 бит информации....
егор1486
29.12.2020 11:07
По paskal используя стандартные файлы input и output,найти сумму двух целых чисел. ,!...
Фоксе2121
16.05.2022 09:11
Что такое байт, килобайт, мегабайт, гигабайт, терабайт? , надо...
228466
16.05.2022 09:11
1) какова мощность алфавита юникод? 2) какова мощность алфавита ascii ?...
surgut186rus
05.03.2020 18:35
Сколько бит информации несет в себе известие, что монета упала гербом вниз? объясните как решить ,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
if ReadInteger.ToString.Any(c-> '13579'.Contains(c))
then Print('Нет')
else Print('Да')
end.