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

Question

Информатика

Аида

21 марта, 13:18

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

+2

Ответы (2)

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

Аргент · 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.

Лейламат · Answer 2

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

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

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

while (сч < = N) {

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

}

alert (сумма) ;