Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад