Question

Паскаль. Найти сумму произведений последовательности чисел S:=1*1+2*2+3*3+4*4...n*n. n введите с клавиатуры.

Answer 1

program E05;
  uses crt;
    var
      n,S,i: integer;
begin
  clrscr;
  writeln('Введите n: ');
  readln(n);
    for i:=1 to n do
    S:=S+i*i;

  writeln('Ответ: ',S);
end.