Question

вычислить значение функции y=1/x-5 на отрезке от 1 до 10

Answer 1

В задаче не указан  шаг изменения x , допустим он равен 1

var

x,y:real;

begin

x:=1;

while x<=10 do

begin

y:=1/x-5;

writeln(y:8:2);

x:=x+1;

end;

end.