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

Pascal информатика. определить лежит ли число в диапазоне (-30,60) , 15

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

ВИКУСИК4455

09.04.2022 23:18

1. Определить объем информации состоящей из 35 символов, написанной на алфавите из 74 символов 2. Определить минимальное количество задаваемых во для угадывания числа от 600...

dafnaliquor20

15.05.2022 09:04

Паскаль ! 1.напишите программу, чтобы вывести символы по образцу a ab abc … abc…xy abc…xyz...

Лана200611

15.09.2021 05:39

Паскаль абс 1.задаётся число n. затем вводятся n символов в одной строке. вместо каждого символа с нечетным кодом ascii вывести предшествующий ему символ, а вместо каждого символа...

dashalikhtina

20.05.2023 17:02

7 КЛАСС ЗА НОРМАЛЬНЫЙ ОТВЕТ, НА СПАМ КИНУ ЖАЛОБУ КуМир нужно сделать анимацию с исполнителя рисователь. Шар должен упасть С УСКОРЕНИЕМ, удариться об землю и подняться с ЗАМЕДЛЕНИЕМ....

LeysAn11234

08.09.2021 14:22

Как эту штуку убрать на компе...

Ананасяя

18.12.2020 10:34

1 скрин - само задание2-3 скрин - пример выполнения...

demianchik

15.03.2021 19:09

Дано; алг цифра 0 Нач опустить перо сместиться на вектор (-1, 0) сместиться на вектор (0, -2) сместиться на вектор (1, 0) сместиться на вектор (0, 2) поднять перо сместиться...

rvarapp

22.10.2020 19:55

, у меня есть массив и я провожу сортировку Как вывести на экран число перестановок элементов массива. Массив выводить на экран не нужно(язык СИ)...

aleksBRO

30.04.2021 02:11

очень надо написать код на СИ Ввести в одной строке фамилию, имя и отчество. Вывести приветствие, где останутся имя и фамилия(желательно через разделение слов)...

moon471

09.11.2022 17:46

Расщифруйте этот код и если не трудно этот тоже: 31.34.31.31...

Ответ:

юра416

10.09.2020 16:59

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
if ReadReal.Between(-30,60) then Writeln('Входит')
else Writeln('Не входит')
end.

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

Ответ:

bogdanserebria

10.09.2020 16:59

Var a:integer;
Begin
Read(a);
If (a>-30) and (a<60) then write('yes')
else write('no');
End.

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

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

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