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

Составе программу которая определяет принадлежит ли введенное целое число x интервалу (10,20), и выводит на экран соответствующие сообщение : "принадлежит " либо " не принадлежит "

Ответ:

Eldhei

03.10.2020 21:56

Как понимаю, числа 10 и 20 в интервал не входят, учитывая круглые скобки. Тогда так.

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
число: ЦЕЛ;

УКАЗ
число := Приём.Число();
ЕСЛИ число > 10 И число < 20 ТО
Вывод.Цепь("^Принадлежит.")
ИНАЧЕ
Вывод.Цепь("^Не принадлежит.")
КОН

КОН Задание.

0,0(0 оценок)

Популярные вопросы: Информатика

Sofia2819

25.10.2021 03:22

Сюжет народной сказки гуси-лебеди . какие условия должна была выполнить её героиня?...

Ozabo4eniy

30.03.2022 15:20

Зачеркните лишнее слово : корабль, огонь, ярость, туннель лишние слова носок мозоль георгин помидор...

lasyaaa

21.10.2021 10:56

Определите значение переменной a после выполнения фрагмента программы: a := 6; if a 8 then a := a + 4 else a := a - 4; if a = 10 then a := a - 1 else a := a + 1;...

shapovalovalyubochka

27.02.2020 14:30

Какое число нужно записать вместо многоточия, чтобы в результате работы фрагмента программы были напечатаны ровно три звездочки? x:=…; while x = 9 do begin writeln( * ); x := x + 1;...

AFMaster

21.03.2020 12:32

Какой объём видеопамяти необходим для хранения двух страниц 1024-цветного изображения, если разрешающая экрана очень нужно!...

nastyamagiao

17.02.2021 07:58

Путём преобразования докажите равносильность следующих высказываний...

55636906ррлиод

16.08.2020 11:12

Дайте понятие словам: абонент сети,сервер,администратор,модем,сетевой протокол...

leeJLZeel

14.01.2022 00:22

Задание № 1 1)Выберите правильный модальный глагол: I … speak English. a) may b) can c) must d) have 2) Выберите правильный вариант вопросительного слова: Oxford is the place ... my...

7gekap0bshm

31.01.2023 10:08

(а+55)−806=204 Решите уравнение...

адильнури

23.12.2022 19:28

Ребят уже 3 раз я и не надеюсь на ответ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку