Question

найти сумму квадратов всех целых чисел от -10 до b(b>=-10)

Answer 1

Program summa;

 Uses crt;

 Var i, s,b:integer;

 Begin

  Write('Введите число ,b=');

  Readln(b);

 For i:= -10 to b do

   s:=s+sqr(i);

 Writeln('Сумма квадратов = ',s);

 End.