Дана последовательность следующего вида: 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.