Ответы и объяснения

2012-01-19T10:47:13+04:00

В задаче не указан  шаг изменения 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.