Question

Найди и исправь ошибки в программе.
Задача: выполнить вычисление:
Proramm Vychislenie_funkcii,
var x, y, :real,
began
writeln ‘введите x’;
riadln(y);
u:=1+2 sin(x+y): 5-sqr(x+y);
writeln(‘ u=’,u);
end.

Answer 1

Program Vychislenie_funkcii;
var x, y :real;
begin
writeln('Введите x');
readln(x);
y:=1+2*sin(x+y)/5-sqr(x+y);
writeln('y=', y);
end.