Помогите написать программку,пожалуйста.Подсчитать сумму ряда

Помогите написать программку,пожалуйста.
Подсчитать сумму ряда
-1-2+3+4-5-6+7+8.....+N
N-вводится юзером
(цикл со счетчиком (FOR i:=1 to N do))

Задать свой вопрос
Андрей
Для чего циклы, если это сумма арифметической прогрессии и она считается вообщем без компьютера? Дурные какие-то задания для вас дают...
Миша Осмер
ну вот так
Никитка Гайвороновский
Это пример того, когда компьютер использовать не необходимо)))
Лилия Кошканова
Был неправ.... ряд знакопеременный.
1 ответ
// 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



Лидия Глуткова
Хм... поспешил... тут же знакопеременный ряд. Исправлю
Виталий Бенеславский
и всё таки, как получается то
Виталий Луринов
Так, как написано)
Альбина Пилипченко
спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт