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

Предыдущий
вопрос Следующий
вопрос

Алгоритм:

Задать переменную sum = 0Задать переменную N и ввести с клавиатурыИспользуя цикл for от 1 до N с шагом 1, проходить по всем натуральным числам iНа каждом шаге прибавлять i к переменной sumВывести на экран переменную sum

Программа на Паскале:

program SumOfNaturalNumbers;
var
N, i, sum: integer;
begin
sum := 0;
write('Введите натуральное число N: ');
readln(N);
for i := 1 to N do
begin
sum := sum + i;
end;
writeln('Сумма всех натуральных чисел до ', N, ' равна ', sum);
end.

Трассировка алгоритма (для N = 5):

Переменные: sum = 0, N = 5, i = 1
Шаг 1: sum = 0
Шаг 2: N = 5
Шаг 3: i = 1, sum = 0
Шаг 4: sum = 1
Шаг 3: i = 2, sum = 1
Шаг 4: sum = 3
Шаг 3: i = 3, sum = 3
Шаг 4: sum = 6
Шаг 3: i = 4, sum = 6
Шаг 4: sum = 10
Шаг 3: i = 5, sum = 10
Шаг 4: sum = 15
Вывод: Сумма всех натуральных чисел до 5 равна 15