Предмет: Информатика, автор: kkkkkkkkkkkkkk27

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

Приложения:

Ответы

Автор ответа: huston81
0

Ответ:

готово

Объяснение:

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.

Похожие вопросы
Предмет: Русский язык, автор: Цхинвал
Предмет: Математика, автор: 3292506616