Найти значение выражения 1*1+2*2+…+n*n — Pascal(Паскаль)

Дана последовательность следующего вида: 1*1+2*2+…+n*n, где n — целое число, вводимое пользователем. Подсчитать сумму произведений и вывести на экран.

Данный пример последовательности — это сумма квадратов натуральных чисел. Для нахождения суммы выражения организуем цикл, в котором каждый раз к сумме будем добавлять очередной квадрат числа.

Uses Crt;
Var
	n,s,i : Integer;

Begin
	ClrScr;
	Write('n = ');
	Readln(n);
	s:=0;
	For i:=1 to n do
		s:=s+i*i;
	Writeln('s = ',s);
	Readln
End.

Leave a Comment

68 − = 59