Вычислить сумму элементов последовательности - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

С клавиатуры вводится натуральное число

n

, а затем

n

чисел, сумму которых необходимо вычислить. Вывести одно число -

сумму введенных чисел

.

Решение задачи: «Вычислить сумму элементов последовательности»

textual
Листинг программы
var
    i, n: Word;
    sum, numb: Extended;
begin
    sum := 0;
    repeat
        Write('Input n(>0): ');
        ReadLn(n);
    until (n > 0);
    for i := 1 to n do
    begin
        Write('Input number: ');
        ReadLn(numb);
        sum := sum + numb;
    end;
    WriteLn; Write('sum=', sum:0:2);
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы