Question

Написать и реализовать программу на языке Паскаль для вычисления суммы натуральных чисел от 1 до N, то есть S = 1 + 2 + 3 + 4 ... + N

Answer 1

PascalABC.NET

Ответ:

• begin
• ReadInteger.Range.Sum.Print
• end.

или, если прогрессии не отменяли, а программа предусматривает хранение переменных N и S:

• begin
• var N := ReadInteger('N:');
• var S := n*(n+1)/2;
• Print('S:',S);
• end.

Пример работы:

Answer 2

Конечно! Вот пример программы на языке Паскаль для вычисления суммы натуральных чисел от 1 до N:

pascalCopy code
program SumOfNaturalNumbers;

var
  N, S, i: integer;

begin
  // Вводим значение N с клавиатуры
  writeln('Введите значение N:');
  readln(N);
  
  // Инициализируем сумму
  S := 0;
  
  // Вычисляем сумму натуральных чисел от 1 до N
  for i := 1 to N do
    S := S + i;
  
  // Выводим результат
  writeln('Сумма натуральных чисел от 1 до ', N, ' равна ', S);
end.

Скопируйте этот код в среду разработки Паскаля (например, Free Pascal) и запустите программу. Она запросит у вас ввести значение N, а затем вычислит сумму натуральных чисел от 1 до N и выведет результат.