Вычислить сумму элементов последовательности - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д