Вывести значение выражения в Pascal ABC. X=[5;15]
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.
Спасибо, уже написала
var x,y:real;begin writeln('Введите значение X'); readln(X); writeln('Значение X = '); y:=(sqr(x)+x+6)/(sqrt(x)+1); writeln('Значение y = ',y);end.