Предмет: Информатика,
автор: kkkkkkkkkkkkkk27
Помогите пожалуйста
Приложения:
![](https://files.topotvet.com/i/aa9/aa991fee0543e008f884f6e83575d553.png)
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Геометрия,
автор: daystarelly
Предмет: Русский язык,
автор: Цхинвал
Предмет: Математика,
автор: plelchuk
Предмет: Математика,
автор: 3292506616