Предмет: Информатика,
автор: Svytoslavka
Помогите написать программу в Pascal. Нужно написать программу в Pascal которая решала бы данную функцию.
Приложения:

Аноним:
Вы забыли приложить к своему фото микроскоп... Я даже на своем мониторе с диагональю 27" не могу толком разглядеть задание
Ответы
Автор ответа:
1
// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var x := ReadReal('x=');
var y: real;
if x < 0 then y := x * x - 3 - (Pi - x) ** (1 / 3)
else
if x < 1 then y := Sqr(x * x + 3) - Sqrt(0.5 * Pi + x)
else y := x * (x * x + 3) + Ln(Pi + x);
Println('y =', y)
end.
Приложения:

Похожие вопросы
Предмет: Литература,
автор: dima2391
Предмет: Математика,
автор: nastyasameloni
Предмет: Математика,
автор: oripovahitana
Предмет: Математика,
автор: sasha020314
Предмет: Алгебра,
автор: dudukin