Написать программу в Паскале

Question

Написать программу в Паскале

---

Answer 1

Var x,y:real; i:integer;
begin
write('x = ');
readln(x);
y:=0;
if x>0
 then for i:=1 to 10 do y:=y+1/((2*i-1)*x)
 else if x<0 then for i:=1 to 10 do y:=y+1/(2*i*x);<br>writeln('y = ',y:5:3);
end.

Пример:
x = -2
y = -0.732

Comments

А откуда мы берём эти 5 значений х?Вот вопрос мне такой задали

---

Значение x должно вводиться с клавиатуры. Чтобы получить 5 результатов, программу нужно запустить 5 раз.