Помогите сделать в turbo pascal: дано целое число x, вычислить
Помогите сделать в turbo pascal: дано целое число x, вычислить
Гость
Ответ(ы) на вопрос:
Гостьuses Crt;
var x,y:real;
begin
ClrScr;
Write('x='); Read(x);
y:=exp(cos(x))-sqr(x+sin(x/3)/cos(x/3)+2);
Writeln('y=',y);
Readkey
end.
Не нашли ответ?
Похожие вопросы