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


alexandra171717
08.01.2021 19:24

Pascal.abc пользователь вводит целое число. если оно четное, если больше 10 и меньше 20, то вывести изначальное число, умноженное на 2.

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
gilkatay1
gilkatay1
05.10.2020 02:51
нужно найти значение алгоритма, подставляя под а begin readln (a); b:=15+a; if a mod 25 10 then b:= b+50; for i:=2 to 4 do begin if a mod i = 0 then a:=a+a mod 10 else a:=...
AntonTeplyakov
AntonTeplyakov
28.02.2020 21:18
Як вибрати для роботи стовбець? Як при заповненні таблиці перейти від клітинки до клітинки?Що можна змінити під час налаштування вигляду меж клітинок таблиці?...
BlackL706
BlackL706
23.03.2023 04:39
Задача.Серед усіх двох значних чисел знайти суму чисел які кратні 3 (зробити в програмі Python)...
larikhambekov
larikhambekov
23.12.2021 00:24
12. даны матрицы а(5,6) и в(5,6). из максимальных элементов столбцов матрицы а сформировать вектор с. из минимальных элементов столбцов матрицы в сформировать вектор d. если...
marimoguardp0c9eu
marimoguardp0c9eu
06.01.2022 10:49
Сколько кбит информации содержит сообщение обьемом 2 в 45 степени байт? ответ степень 2...
yrik0440
yrik0440
15.03.2023 06:48
Написать все вкладки диспетчера...
lapysh1995
lapysh1995
02.10.2020 02:38
Написать программу в паскале по нахождению периметра прямоугольника так, чтобы вместо р писался периметр （как на картинке）...
Rararasa
Rararasa
02.03.2020 02:24
)нужно составить в паскале программу для проверки пароля, совсем не понимаю паскаль, для меня это темный лес! )...
Ekaterinakozlik
Ekaterinakozlik
29.12.2022 04:35
Запишите в римской системе счисления: год изобретения радиосвязи год первого полета человека в космос год проведения лимпийских игр в москве...
anastasia69smirnova
anastasia69smirnova
13.01.2020 22:05
Не понимаю как делать: ( 1. сообщение из 50 символов было записано в 8 битной кодировке.после вставки в текстовый редактор сообщение было перекодировано в 16-битный код.на...
Ответ:
ЯГовн0
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота