Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Аккаунт удален
14.02.2021 14:14 •
Информатика
Pascal.abc пользователь вводит целое число. если оно четное, если больше 10 и меньше 20, то вывести изначальное число, умноженное на 2.
Показать ответ
Ответ:
lolipop123332
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 оценок)
Популярные вопросы: Информатика
romaantonizin1
14.01.2022 11:37
Дана строка s . Напишите функцию numbers_only(s) , которая удаляет все символы, кроме цифр. Питон!...
Мария55445
10.12.2020 23:03
Дана строка s, в которой записано натуральное число. Напишите функцию fun(s), которая возвращает строку, в которой число увеличили в 2 раза....
softani1105
20.10.2020 13:55
Информатика, задание на картинке ...
SimonN1
11.09.2021 14:35
Информатика, задание на картинкеЧтобы открыть картинку нужно нажать на полоску...
evabelova25
08.03.2022 07:37
1. Обговоріть, які події в запропонованому списку можна подати алгоритмами із вкладеними розгалуженнями: а) проїзд автомобіля через перехрестя, яке регулю- ється світлофором;...
Miratrix
22.08.2021 15:48
Написать программу на паскале турбо которая будет выводить все суммы числа 50 или n числа...
diman211102
22.08.2021 15:48
Составьте программу на вычисление частного числа, цикл с предусловием...
TATARNH7
31.03.2020 18:29
Какие два из перечисленных течений Мирового океана являются тёплыми? Калифорнийское Бразильское Течение Западных Ветров Северо-Тихоокеанское Бенгельское...
GizaHelinc
09.06.2022 16:53
За соціальним станом Герасим Калитка:...
КОте2004
22.04.2021 05:01
Синонимдері сәйкестендір...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.