Question

Пожалуйста. напишите программу, вычисляющую сумму квадратов от 1 до N. на ABC паскале

Answer 1

Конечно, вот программа на языке Pascal, вычисляющая сумму квадратов чисел от 1 до N:

program SumOfSquares;

var
  N, i, sum: Integer;

begin
  // Запрашиваем у пользователя значение N
  Write('Введите значение N: ');
  ReadLn(N);

// Инициализируем переменную sum
  sum := 0;

// Вычисляем сумму квадратов чисел от 1 до N
  for i := 1 to N do
  begin
    sum := sum + i * i;
  end;

// Выводим результат
  WriteLn('Сумма квадратов чисел от 1 до ', N, ' равна ', sum);
end.

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