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

2013-12-17T10:25:05+00:00
Вся формула вот она.program P1;uses
crt;
var
x,y : real;
begin
clrscr;x := -1;writeln('----------');while x <= 1 do
begin
y := 1/x+2;x := x + 0.1;
writeln(y
Спокойно, можешь переписывать в тетрадь.