Question

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

Answer 1

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

begin

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

end.

Answer 2

Отлично, общайтесь дальше.

Answer 3

Приятно было пообщаться, но ждут дела. Хорошего вечера!

Answer 4

А вот хорошего вечера - почему не пожелать?

Answer 5

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

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.

8216a4834ee830a8dbc2b3f91c238478.pas