Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
00SERGEI2003
08.05.2020 19:05 •
Информатика
F(x) =x²-3x+9 если x≤3 = (1)/(x²+6) если x> 3 решите функцию в программе pascal и составьте блок схему
Показать ответ
Ответ:
лина28051
17.07.2020 09:31
Program s123;
Var x,y:real;
Begin
Writeln('F(x) =x²-3x+9 если x≤3, F(x)=(1)/(x²+6) если x>3');
Writeln('Введите значение переменной x');
Readln(x);
If (x<3) or (x=3) Then y:=sqr(x)-3*x+9 Else y:=1/(sqr(x)+6);
Writeln('F(x)=',y);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
natali251081
06.06.2021 08:10
Сдано, формулами и решением. 1. в одной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке. семь раз...
svyatkin111
03.03.2023 04:15
(дайте определение понятию письменно)13 дайте название алгоритмам, ниже: телошиклаусловиеданет...
mulanmango
01.07.2021 00:36
Вкоде это 9. опишите назначение объекта мемо.(дайте определение понятию письменно)10.какие свойства объекта мемо вы знаете? (дайте определение понятию письменно)11. как...
МилаКу
11.01.2021 05:10
Служебное слово const в программе на языке pascal фиксирует начало раздела программы содержащего...
gulua1
30.08.2020 09:27
1.Все устройства компьютера разделите на две группы: Основные, Периферийные. 2.Запишите все составные части системного блока....
RTF1111
20.11.2022 01:01
Захист данних. Шкідливі програми, їх види і боротьба з ними...
Lesia3081984
27.07.2021 11:33
Какие игры потянет(даже на минималках) gtx 750 если что проц Xeon e5 2689....
dimapivovarov
20.10.2021 05:02
Сопоставь персональные беспроводные сети связи с их характеристиками....
dolgorma1
04.01.2020 19:05
Сторони трикутника 13см, 20см, 21см. У вершині більшого кута до площини трикутника побудовано перпендикуляр завдовжки 35см. Знайти відстань від кінця перпендикуляра до...
freight1337
04.01.2020 19:05
Очень нужна Визначити об єм повітря ,необхідний для спалювання 8 кг метану,при температурі -20 градусів,і тиску 720мм.рт.ст.(коефіцієнт надлишку повітря =1.8)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var x,y:real;
Begin
Writeln('F(x) =x²-3x+9 если x≤3, F(x)=(1)/(x²+6) если x>3');
Writeln('Введите значение переменной x');
Readln(x);
If (x<3) or (x=3) Then y:=sqr(x)-3*x+9 Else y:=1/(sqr(x)+6);
Writeln('F(x)=',y);
End.