Помогите написать программу,пожалуйста. Подсчитать сумму ряда -1-2+3+4-5-6+7+8.....+N N-вводится пользователем (цикл со счетчиком (FOR i:=1 to N do))
Помогите написать программу,пожалуйста.
Подсчитать сумму ряда
-1-2+3+4-5-6+7+8.....+N
N-вводится пользователем
(цикл со счетчиком (FOR i:=1 to N do))
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1138
var
i,n,s:integer;
begin
Write('n='); Read(n);
s:=0;
for i:=1 to n do
if ((i mod 4)=1) or ((i mod 4)=2) then s:=s-i else s:=s+i;
Writeln('Сумма ряда равна ',s)
end.
Тестовое решение:
n=13
Сумма ряда равна -1
Не нашли ответ?
Похожие вопросы