Question

Задано вещественное значение аргумента х. Вычислить значение


функции у.  y = eх+1
+ Cos x  



Написать решение
программы на языке Pascal

Answer 1

var x,y:real;
begin
readln(x); 
y:=exp(x+1)+Cos(x);
writeln('y=',y);
end.