Question

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

Answer 1

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.

Answer 2

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

Answer 3

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

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

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

while (сч <= N) {

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

}

alert(сумма);

Answer 4

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

Answer 5

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