Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального n . использовать цикл while

var

k,sum,N:integer;

begin

k:=1;

sum:=0;

readln(N);

while sum<N do begin

sum:=sum+k;

inc(k);

end;

writeln(sum);

end.

Да алгоритм крайне прост, всего одна формула: сумма = (N + 1) * N / 2.

Но раз тебе цикл "вхиле" нужен, то можно так:

var N = prompt(), сч = 1, сумма = 0;

while (сч <= N) {

 сумма += сч++;

}

alert(сумма);