Для приведенной ниже числовой последовательности написать программу для вычисления...

Question

Для приведенной ниже числовой последовательности написать программу для вычисления числа:

1/1*3-1/3*5+1/5*7-1/7*9+.....+1/101*103-1/103*105

Comments

там (1/1)*3-(1/3)*5 или 1/(1*3)-1/(3*5)?

Answer 1

Program gt;
var p:real;
a,b,w:integer;
begin
a:=-1;
b:=1;
w:=-1;
while a<=103 do<br>begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+1/a*b*w;
end;
writeln(p);
end.
2)
program gt;
var p:real;a,b,w:integer;
begin
a:=-1;b:=1;w:=-1;p:=0;
while a<=103 do<br>begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+(1/(a*b))*w;
end;
writeln(p);
end.
1-первый случай
2-второй случай

Comments

Спасибо