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

Question

Информатика

Аида

22 августа, 12:05

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

+3

Ответы (2)

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

Лейламат · Answer 1

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

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

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

while (сч < = N) {

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

}

alert (сумма) ;

Аргент · Answer 2

var

k, sum, N:integer;

begin

k:=1;

sum:=0;

readln (N) ;

while sum
sum:=sum+k;

inc (k) ;

end;

writeln (sum) ;

end.