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

1

Ответы и объяснения

Лучший Ответ!
2014-04-04T09:17:40+00:00
Var i, N, sum: integer;
begin
  sum := 0;
  readln (N);
  for i := 1 to N do sum := sum + i;
  writeln (sum);
end.