Ответ(ы) на вопрос:
var
i,a,b:integer;
s:real;
begin
s:=117;
a:=4;
b:=1;
for i:=1 to 24 do
begin
if i mod 2 = 0 then s:=s-(a/(b+b+2)) else s:=s+(a/(b+b+2));
a:=a+2;
b:=b+2;
end;
Writeln(s);
end.
Не нашли ответ?
Похожие вопросы