На отрезке [1;3] с шагом 0,5 протабулируйте функцию √x+2x\x-5
там все под корнем или нет?
Program gt; var y,x:real; begin x:=0.5; while x<3 do<br>begin x:=x+0.5; y:=sqrt(x+2*x(x-5)); writeln(y); end; end.