Вычислить сумму элементов последовательности - 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.