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

Question

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

Answer 1

var

k,sum,N:integer;

begin

k:=1;

sum:=0;

readln(N);

while sum

sum:=sum+k;

inc(k);

end;

writeln(sum);

end.

Comments

"Не превышающих". У тебя "которые меньше".

Answer 2

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

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

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

while (сч <= N) {</p>

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

}

alert(сумма);

Comments

надо написать в программе паскаль

---

Не, я таким непотребством не занимаюсь. Бери на JS.