Напишите программу для подсчета суммы первых n натуральных чисел. Число n вводится с клавиатуры

Question

Информатика

Анастаска

5 декабря, 04:06

Напишите программу для подсчета суммы первых n натуральных чисел. Число n вводится с клавиатуры

+1

Ответы (1)

Знаете ответ на вопрос?

Эразм · Answer 1

Var i, n, s:integer;

a:array[1 ... 1000] of integer;

begin

readln (n) ;

s:=0;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do s:=s+a[i];

writeln (s) ;

end.