logo
Войти Регистрация Спроси ai-bota


Aida20041111
23.01.2022 08:05

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

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
РАДЖАБ555
РАДЖАБ555
18.10.2022 14:21
Напишите программу на паскале составте программу для вычечления периметра равностороннего треугольника длинна видите на клавиатуре, нада зарание...
10203040502017
10203040502017
29.01.2022 01:42
Решите на 4 или на 5 9 класс,массивы на 4 дан массив а(8) ввод данных с клавиатуры.найти произведение отрицательных элементов массива и кол во положительных массивов. на...
Ябулочкасизюмом
Цветное графическое изображение с палитрой 256 цветов имеет размер 15*15.какой информационный объем имеет изображение...
Kakashka2001
Kakashka2001
27.12.2022 16:09
Связь разрядности двоичного кода и количества кодовой информации....
perf3ctkn1ghtozbgjn
perf3ctkn1ghtozbgjn
28.09.2022 12:52
төмендегі екі мәтінің біреуін алып төл сөз, төлеу сөз, автор сөзін қолданып жазба жумысын орындандар көмектесіндершіі тез керек.. 5 сынып​...
madik0721
madik0721
16.11.2020 02:07
8. В саду растут 13 роз и 14 гвоздик. Девочка сорвала 13 цветков. ответь на вопросы:а) может ли быть среди них хотя бы одна гвоздика?б) может ли быть среди них хотя бы...
лера21091
лера21091
21.05.2020 10:17
Точки А(-2; -1), В(-2; -3), С(5; -2) являются вершинами параллелограмма АВСД. Найдите координаты вершины Д и координаты точки пересечения диагоналей. (7 б) Указание: Задачу...
dima19820325
dima19820325
29.08.2022 00:58
Построить описанную окружность вокруг треугольника . :) ​...
TIGER197
TIGER197
13.06.2021 22:29
Найти плошадь прямоугольного триугольника если его катеты равны 5 и 12 см...
ученикпро1
ученикпро1
13.07.2022 17:08
Наведіть приклади двох слів, подібних за будовою до слова кімоно ​...
Ответ:
ytt2
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота