Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Askas9999
01.06.2021 03:57 •
Информатика
Pascal.abc пользователь вводит целое число. если оно четное, если больше 10 и меньше 20, то вывести изначальное число, умноженное на 2.
Ответ:
Шарарашка090
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 оценок)
Популярные вопросы: Информатика
rlynx675
10.02.2022 08:24
Склавиатуры вводится число n ,а за ним n целых значений элементов массива посчитайте кол-во четных чисел стоящих на нечетных местах в массиве...
aminamamedova3
18.04.2022 23:02
Дайте определения- редактирование текста , буфер обмена , обработка информации...
Куку1560
17.07.2021 15:16
СОЕДИНИТЕ НЕ НАДО ВОТ ЭТО ТРАЛЯЛЯ...
Шаров2005
18.09.2021 12:48
Для чего человеку понадобился компьютер...
Алина13445
09.08.2020 06:58
Сколько разных кодирования, или различного написания существует для слова ара , если можно использовать только прописанные буквы и латинского алфавитов?...
madinakhamrayev
28.08.2020 11:00
Написать цитаты стародума о родословной...
1Yuki2
07.01.2022 08:42
Живут в одном небольшом городке и ходят друг к другу на праздники, дни рождения. причем в ответ принято обязательно приходить в гости к тому, кто у них был в гостях. вера побывала...
карпать1картошку
18.01.2021 12:29
На вагонетку массой 2,4т, движущуюся со скоростью 2 м/с, вертикально сбросили песок массой 600 кг.чему стала равна скорость вагонетки?...
Svetiksmail5454
27.06.2022 01:21
Молчалин блаженствует на свете? почему...
Mawamawa00
28.07.2021 11:04
Почему именно великобритания займет лидирующие позиции...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a: integer;
begin
read(a);
if (a mod 2 = 0) and (a > 10) and (a < 20) then writeln(a * 2);
end.