Question

Напишите программу Паскаль. Найти сумму первых n в квадрате чисел​

Answer 1

===== PascalABC.NET =====

begin

 SeqGen(ReadInteger('N ='), n -> n * n, 1).Sum.Print

end.

Answer 2

Прикрепляю код программы в файле.

program brainly;

var

 n, i :integer;

 summ :real;

begin

 Write('Введите n: ');

 ReadLn(n);

 for i := 1 to n do

   summ += power(i, 2);

 Write('Сумма квадратов первых ', n, ' чисел равна: ', summ);

end.

Answer 3

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

pascalCopy code
program SumOfSquares;
var
  n, i, sum: Integer;
begin
  writeln('Введите число n:');
  readln(n);

  sum := 0;
  for i := 1 to n do
    sum := sum + i * i;

  writeln('Сумма квадратов первых ', n, ' чисел:', sum);
  readln;
end.

В этой программе мы объявляем переменные n, i и sum. Затем мы запрашиваем у пользователя ввод значения n. Затем мы инициализируем переменную sum значением 0.

Затем мы используем цикл for для прохода от 1 до n. На каждой итерации мы добавляем квадрат текущего значения i к переменной sum.

В конце программы мы выводим результат - сумму квадратов первых n чисел.

Вы можете запустить эту программу в среде разработки, поддерживающей язык Паскаль, чтобы получить результат.