Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.