Question

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

Answer 1

Var
  a,n,i:integer;
Begin
  Write('Введите число ');
  Readln(n);
  for i:= 1 to n do
    a:=a+i;
  Write('Сумма всех натуральных чисел до n (включительно) равна ',a);
End.

Answer 2

программа идет, получилось все правильно

Answer 3

ну тогда ок. Я выше привёл формулу - которая упрощает код программы.

Answer 4

спасибо

Answer 5

Возьму формулу на вооружение!

Answer 6

её можно доработать для условия сумма чисел от А до B