Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
littleeeprincess
02.02.2020 20:07 •
Информатика
Решить : 1)даны x,y,z.найти f=max(x^2+y^2-z; x^2+z^2-y)+64 2)y=(20x-10x^3,при x< =10 (25x^3-61x^2,x> 10
Ответ:
UILA336
04.10.2020 22:50
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var x,y,z:real;
Read(x,y,z);
var f:=max(x*x+y*y-z,x*x+z*z-y)+64;
Writeln('f=',f)
end.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var y:=x>10?x*x*(25*x-61):10*x*(2-x*x);
Writeln('y=',y)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
epstalmakov
15.11.2020 06:33
Переведите числа из двоичной системы счисления в десятичную1000...
annasefershaeva
14.12.2020 11:21
Программист написал программу, вычисляющую сумму элементов массива А, десятичная запись которых заканчивается на 6. Какое условие он записал вместо многоточия?В ответе запишите...
ganjaman007
28.05.2022 20:39
Молю мне с этой информатикой,ничего не понимаю,с виду казалось легче...
TemkaVGG
05.03.2022 23:13
Что такое протокол передачи данных...
вик232
09.03.2021 00:05
Определите значение переменной а после выполнения данного алгоритма: а := 7 b := 5+а b := а+b+1 а := b/4*3-а В ответе укажите одно целое число — значение переменной а....
JackFollower
22.05.2020 14:02
Запусти Паскаль и введи программу: program x1; var a,b,c:integer; begin a:=−33; b:=abs(a); writeln( abs(−33)= ,b); c:=sqr(b); writeln( sqr(b)= ,c); c:=sqr(b+b); writeln(...
malyshkala1234
17.09.2021 11:20
Выбери программу, которая вычисляет длину гипотенузы. var m,x,h:real; begin writeln( Введи длины катетов m и x ); readln(m,x); h:=sqrt(m*m+x*x); writeln( h= ,h:8:2); readln;...
anastasiyapinoнастя
12.03.2020 18:13
Дана программа: Program Primer; Var N,result : real; Begin Writeln( Введите значения переменной N ); Write( N= ); Readln(N); Result := sqr((7+N)*3); Writeln (result:8:0);...
MAXXB
31.05.2020 22:24
Що таке ботнет мережа і яки виконують загрози для користовача якщо потрапити до такої мережі?...
klubnika1985
27.04.2021 02:29
Что вы знаете о World Wide Web?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var x,y,z:real;
Read(x,y,z);
var f:=max(x*x+y*y-z,x*x+z*z-y)+64;
Writeln('f=',f)
end.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var y:=x>10?x*x*(25*x-61):10*x*(2-x*x);
Writeln('y=',y)
end.