Question

Написать программу вычисления суммы целых чисел от 1 до n, запрашиваемого с клавиатуры. Pascal ABC

Answer 1

Var
  i, n: integer;
  sum: longint;
begin
write('n = ');
readln(n);
for i := 1 to n do sum := sum + i;
writeln('Сумма чисел от 1 до ', n , ' = ', sum);
end.

Answer 2

Var
  s,n:integer;
begin
  Write('Введите n:');
  Readln(n);
  s:=n+(n*(n-1)) div 2; { сумма арифметической прогрессии }
  Writeln('Сумма чисел от 1 до ',n,' равна ',s)
end.

Answer 3

Вот пример программы на Pascal ABC, которая вычисляет сумму целых чисел от 1 до заданного пользователем числа n:

pascalCopy code
program SumOfIntegers;
var
  n, sum, i: integer;
begin
  sum := 0; // Инициализируем сумму нулем

  // Запрашиваем у пользователя число n
  write('Введите число n: ');
  readln(n);

  // Вычисляем сумму целых чисел от 1 до n
  for i := 1 to n do
    sum := sum + i;

  // Выводим результат
  writeln('Сумма целых чисел от 1 до ', n, ' равна ', sum);

  readln; // Чтобы окно программы не закрывалось сразу
end.

Эта программа сначала запрашивает у пользователя число n, затем использует цикл for для вычисления суммы целых чисел от 1 до n, и, наконец, выводит результат на экран.