Question

на отрезке [1;3] с шагом 0,5 протабулируйте функцию √x+2xx-5

Answer 1

program gt;
var y,x:real;
begin
x:=0.5;
while x<3 do
begin
x:=x+0.5;
y:=sqrt(x+2*x(x-5));
writeln(y);
end;
end.