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

program zz1;

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

begin

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

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

begin

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

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

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

end;

end.