Слагаемые суммы

Искандер

N N-1 1 Дано целое число N(>0). Найти сумму 1 +2 +...+N Чтобы избежать целочисленного переположения, вычислять слагаемые этой суммы с помощью вещественной пременной и выводить результат как вещественное число.Помогите плиз, непонятно(((Блин неправильно вышло. Вот задачка: Дано целое число N(>0). Найти сумму 1(Сверху N) +2(сверху N-1) +...+N(сверху 1) Чтобы избежать целочисленного переположения, вычислять слагаемые этой суммы с помощью вещественной пременной и выводить результат как вещественное число. Сверху означает что они стоят как квадрат или куб.Помогите плиз, непонятно(((
1 ответ

Искандер

Вот функция, решающая Вашу задачу.
function SumN(N: Integer): ******;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to N do
    Result := Result + Power(I, N - (I - 1));
end;
Проверить можно, например, так
ShowMessage(Format('%2.2f', [SumN(4)]));