Question

Помогите пожалуйста

Answer 1

Ответ:

готово

Объяснение:

program summa;

var

 a, b, i, sum: integer;

begin

 Write('Введите число a: ');

 ReadLn(a);

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

 ReadLn(b);

 for i := a to b do

   sum := sum + sqr(i);

 WriteLn('Сумма квадратов чисел от a до b равна ', sum);

end.