Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!
Подскажите пожалуйста, как написать алгоритм и программу для определения суммы последовательности четных чисел

Вопрос задал: Alex (статус: Посетитель) Вопрос отправлен: 2 февраля 2008, 15:55 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Alex!
пусть n1 - начало последовательности, n2 - конец. s - сумма
Многие посоветуют написать цикл, ну где то так

s:=0;
for i := n1 div 2 to n2 div 2 do
  s := s+i*2;

i := n1;
s := 0;
while i <=n2 do begin s := s + i; i := i + 2; end;

s := (n2+n1)*(n2-n1+2)/4;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 2 февраля 2008, 23:35

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.