Question

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

Answer 1

var   N, i, sum: integer; begin   sum := 0;   i := 1;   readln(N);   while i <= N do   begin     sum := sum + i;     i := i + 1;   end;   writeln(sum); end.