Question

Написать программу, которая вычисляет значение выражения e−x−cosx+sin2xy.

Формат входных данных
Входной файл содержит числа x и y. Считать, что вводимые значения принадлежат области определения выражения.

Формат выходных данных
В выходной файл выведите ответ на поставленную задачу не менее чем с 4 знаками после десятичной точки.

Примеры:
Вход
-1 0
Выход
2.1780

Answer 1

Ответ:

Var

x,e,y:real;

Begin

Readln(x);

Readln(y);

e:= exp(1);

x:= e-x-Cos(x)+Sin(2)*x*y;

write('x = ', x);

end.