Помогите написать программу, которая вычисляет сумму первых n натуральных чисел. (составьте программу с while)

Question

Синклара

9 февраля, 18:08

+3

Ответы (1)

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

Роджэр · Answer 1

Program n1;

var n, sum, i: integer;

begin

readln (n) ;

i:=1;

while i<=n do

begin

sum:=sum+i;

i:=i+1;

end;

write (sum) ;

end.