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);
writeln('y = ',y:5:3);
end.

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

Answer 2

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

Answer 3

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