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
1 votes Thanks 1
NastasyaSin
А откуда мы берём эти 5 значений х?Вот вопрос мне такой задали
petyaGavrikov
Значение x должно вводиться с клавиатуры. Чтобы получить 5 результатов, программу нужно запустить 5 раз.
Answers & Comments
Verified answer
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