Question

Даны два целых числа А и В( А больше В) . Найти сумму квадратов всех целых чисел от А до В включительно

Answer 1

Var
   a,b,i,c: integer;
Begin
  Write('Введите А ');
  Readln(a);
  Write('Введите B ');
  Readln(b);
  for i:= 1 to (b-a+1) do Begin
    c:=c+a*a;
    a:=a+1;
 End;
End.