Вопрос пользователя:
вычислить значение функции y=1/x-5 на отрезке от 1 до 10
Илюха отвечает:
В задаче не указан шаг изменения 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.