Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
shargorod81
05.01.2023 17:51 •
Информатика
Составьте программу функции в зависимости от значения аргумента y=7 при x< -7 y=-x при -7=5 программа запрашивает ввод значения x и выводит на экран вид функции y.(
Ответ:
SoniaSor
01.10.2020 22:12
Var
x: real;
begin
readln(x);
write('y = ');
if (x < -7) then write(7)
else if (x < 0) then write(-x)
else if (x <= 5) then writeln(x)
else write(5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ГюнтерСтингерсон
18.03.2020 15:54
Как открыть программу скетчбук?...
boss110
07.07.2022 17:32
Сколько битов занимает 20 байт 1000байт 1 кбайт...
anfinogenov97
25.01.2021 17:41
Сколько целых дискет нужно чтобы записать программу ёмкостью 8,5 мегабайт ёмкость дискеты 1,41 мегабайт...
guljanatkabdrasheva
25.03.2023 15:13
:составить программу на языке паскаль для вычисления выражения y: =sqr(x)+x/3+sqr(sin(x)) : составить программу на языке паскаль для вычисления площади треугольника по трем...
НастюшаПоможет
25.12.2021 05:50
Ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt как известно, цепочка днк формируется из четырёх...
228эрагон
25.12.2021 05:50
Какие из перечисленных действий относятся к форматированию текста...
Комарова23
17.05.2022 13:12
Как перевести количество информации из битов в байты? a. разделить на 1024 b. умножить на 8 c. разделить на 8 d. умножить на 1024 e. дважды умножить на 1024...
МишаКарпунин
17.05.2022 13:12
Поколение процессов intel? 7 букв !...
zagyramasa
17.05.2022 13:12
Устройство для выдачи информации? 7 букв,1-ая буква м )...
loxsanya2017
07.03.2023 18:15
Очень Буду очень благодарна...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
x: real;
begin
readln(x);
write('y = ');
if (x < -7) then write(7)
else if (x < 0) then write(-x)
else if (x <= 5) then writeln(x)
else write(5);
end.