Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ааа5678
08.11.2022 12:41 •
Информатика
Pascal.abc пользователь вводит целое число. если оно четное, если больше 10 и меньше 20, то вывести изначальное число, умноженное на 2.
Показать ответ
Ответ:
mulin2000462345
09.10.2020 22:36
var a: integer;
begin
read(a);
if (a mod 2 = 0) and (a > 10) and (a < 20) then writeln(a * 2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Виолетик2004
09.05.2021 03:58
Составить алгоритм для решения задачи: подсчитать значение выражения Y=78-24C на промежутке от 10 до 20?в кумире...
bogdanka1503p08ifa
05.06.2022 18:30
7. запишите условие для проверки: x[-5; 20]....
AMAYA000
05.06.2022 18:30
Вычислите сумму всех элементов массива,исключая элементы кратные 5.на языке паскаль....
VeraLife1
28.09.2020 18:50
Кустройствам, не работающим с аналоговым сигналом,относятся : а)телевизор б)проигрыватель аудиокомпакт-дисков в)телефон г)проигрыватель грампластинок....
akrontsova
28.09.2020 18:50
Экран компьютера может работать в различных режимах которое отличаются разрешающей и количеством возможных цветов каждой точки. заполните таблицу. кол-во точек: кол-во...
ZelyakAnna
28.09.2020 18:50
(последняя буква одного слова является первой буквой для следующего слова). 1.раньше применительно к этому устройству говорили «эвм». 2. часто этому изобретению очертания...
nickname011
28.09.2020 18:50
Среди предложенных расширений отметьте те, которые являются расширениями файлов с программами, написанными на каком-либо языке программирования. 1. xls 2. jpg 3. pas...
nastyap20032
28.01.2022 05:45
Очень Складіть асоціативний кущ на тему Бази данних ...
0304131
10.11.2020 10:55
Знайдіть в Інтернеті відомості про історію виникнення різних мов програмування. Обговоріть і сплануйте, як можна було б подати знайдені відомості на лінії часу та в...
Uoywex
28.09.2022 13:41
написать уравнение, для выделенных ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: integer;
begin
read(a);
if (a mod 2 = 0) and (a > 10) and (a < 20) then writeln(a * 2);
end.