Напишите программу, подсчитывающую сумму всех чисел от 1 до N. Pascal

Для подсчета суммы всех чисел от 1 до N в языке Pascal, можно воспользоваться простым циклом или формулой суммы арифметической прогрессии. Пример программы с использованием цикла:

pascal
Копировать
program SumNumbers;
var
  N, i, sum: Integer;
begin
  Write('Введите число N: ');
  ReadLn(N);
  sum := 0;
  for i := 1 to N do
    sum := sum + i;
  WriteLn('Сумма всех чисел от 1 до ', N, ' равна ', sum);
end.

В этом коде программа запрашивает у пользователя ввод числа N, затем использует цикл от 1 до N для вычисления суммы чисел. Результат выводится на экран.

Для более быстрого вычисления суммы можно использовать формулу суммы арифметической прогрессии:

Пример программы с использованием этой формулы:

pascal
Копировать
program SumNumbers;
var
  N, sum: Integer;
begin
  Write('Введите число N: ');
  ReadLn(N);
  sum := N * (N + 1) div 2;
  WriteLn('Сумма всех чисел от 1 до ', N, ' равна ', sum);
end.

Этот вариант программы быстрее, так как не использует цикл, а сразу рассчитывает сумму с помощью формулы.