Delphi по братски

[89_milan_89]

Сколько чисел последовательности 2, 4, 6, 8, ... нужно взять, чтобы их сумма превысила 1000? Вывести величину последнего слагаемого и суммы. ???
помогите пожалуйста!!!



___
1) Название темы не отражает суть задачи
2) разделы Delphi не предназначены для решения учебных задач


Модератор

[89_milan_89]

помогите пожалуйста

[tsar_]

1) Необходимо взять минимум 31 член прогрессии.
2) Последнее слагаемое равно 64
3) Сумма 1023.
4) Результаты выведены на монитор вашего компьютера

5) Каков вопрос - таков ответ...

[89_milan_89]

спасибо

[VIK_aka_TOR]

Сообщение от tsar_

1) Необходимо взять минимум 31 член прогрессии.
2) Последнее слагаемое равно 64
3) Сумма 1023.
4) Результаты выведены на монитор вашего компьютера

5) Каков вопрос - таков ответ...

и как только у вас нечетная сумма получилась... лично у меня получилось сумма 1056 .. последнее 64 число...

var i, s :integer;
begin
i:=0;
s:=0;
  while s <= 1000 do
    begin
      inc(i);
      s:= s + i*2;
    end;
    writeln(s,'  ', i*2);
end.

[tsar_]

To VIK_aka_TOR:

и как только у вас нечетная сумма получилась...

Да вот так
Компилятора под рукой не было, решал аналитически, только, как оказалось, выражение для нахождения для n-ого члена прогрессии неправльно записал. Из-за этого получился 31 член вместо 32, и , соответственно, кривая сумма 1023 (при сложении четных чисел).

Видать заработалься вчера.
Спасибо за исправление.