Question

Вывести значение выражения в Pascal ABC.
X=[5;15]

Answer 1

var x:integer;

begin

for x:= 5 to 15 do

writeln ('x = ',x:2,' y = ',(x*x+x+6)/sqrt(x+1):0:3)

end.

Answer 2

Спасибо, уже написала

Answer 3

var x,y:real;
begin
writeln('Введите значение X');
readln(X);
writeln('Значение X = ');
y:=(sqr(x)+x+6)/(sqrt(x)+1);
writeln('Значение y = ',y);

end.