Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число, кратное 4:');
var (s,z,k):=(0.0,1,n div 4);
for var i:=1 to k do begin
var m:=4*i;
s+=z*(m-3)*(m-1)/(m-2+z*m);
z:=-z
end;
Writeln('S = ',s)
end.
Пример
Введите натуральное число, кратное 4: 16
S = 120
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число, кратное 4:');
var (s,z,k):=(0.0,1,n div 4);
for var i:=1 to k do begin
var m:=4*i;
s+=z*(m-3)*(m-1)/(m-2+z*m);
z:=-z
end;
Writeln('S = ',s)
end.
Пример
Введите натуральное число, кратное 4: 16
S = 120
Приложения:
![](https://st.uroker.com/files/6a2/6a24844028e2f8f24a4367372051e368.jpg)
Ответ дал:
0
Где же ты был раньше...
Ответ дал:
0
Ответ был дан 23 мая. Сейчас уже 13 июня. Это где Вы раньше были?
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад