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

program zz1;

var x, y:real; / / задаем переменные не целого типа

begin

x:=1; / / задаем начальное значение для переменной х

while x < = 3 do / / организуем цикл пока, в котором переберем все числа от начального значения х до трех

begin

y:=sqrt (x) + 2 * x / (x - 5); / / вычисляем значение функции по заданной формуле

writeln (' для ', x, ' вычисленное значение функции y = ', y:5:2); / / выводим ответ в столбец в формате пять знаков для всего числа и два знака после точки

x:=x + 0.5; / / увеличиваем х на шаг

end;

end.