Для приведенной ниже числовой последовательности написать программу для вычисления числа:1/1*3-1/3*5+1/5*7-1/7*9+.....+1/101*103-1/103*105
Для приведенной ниже числовой последовательности написать программу для вычисления числа:
1/1*3-1/3*5+1/5*7-1/7*9+.....+1/101*103-1/103*105
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var p:real;
a,b,w:integer;
begin
a:=-1;
b:=1;
w:=-1;
while a<=103 do
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
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+(1/(a*b))*w;
end;
writeln(p);
end.
1-первый случай
2-второй случай
Не нашли ответ?
Похожие вопросы