Var
x, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
y := sqrt(abs(sin(x) + 3 * sqr(cos(x))));
if y = 0 then Writeln('Невозможно вычислить значение функции: деление на ноль')
else Writeln('Значение функции равно ', 1 / y:0:5)
end.
Тестовое решение:
Введите значение аргумента x: 1.53
Значение функции равно 0.99793
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Решение во вложении.
<em><u>Ответ:</u></em>
Александр - Иркутск
Николай - Рязань
Денис - Уфа
Михаил - Саратов
Геннадий - Тюмень
Семен - Воркута