Предмет: Информатика,
автор: alexandro20012199
Составить программу для решения задачи. Найти значения функции.
Приложения:

Ответы
Автор ответа:
0
===== PascalABC.NET =====
begin
var (a, x) := ReadReal2('Введите a и x:');
var y: real;
if x < 1.4 then
y := Pi * x * x - 7 / (x * x)
else if x = 1.4 then
y := a * x ** 3 + 7 * Sqrt(x)
else
y := Ln(x + 7 * Sqrt(Abs(x + a)));
Print(y)
end.
Похожие вопросы
Предмет: Другие предметы,
автор: skukate
Предмет: Алгебра,
автор: rotuydavid
Предмет: Алгебра,
автор: Nas92
Предмет: Музыка,
автор: grakalovalizave
Предмет: Математика,
автор: saparova7