Question

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

Answer 1

Var i, N, sum: integer;
begin
  sum := 0;
  readln (N);
  for i := 1 to N do sum := sum + i;
  writeln (sum);
end.