Question

Найти сумму квадратов чисел от m до n. паскаль

Answer 1

Var s,i,m,n:integer;
begin
 readln(m,n);
 for i:=m to n do
  s:=s+sqr(i);
 writeln('summa:',s);
end.

Answer 2

Для того, чтобы найти сумму квадратов чисел от m до n на языке программирования Паскаль, можно использовать следующий алгоритм:

- Объявить переменные m, n, i и s типа integer (целые числа). - Считать с клавиатуры значения m и n, проверить, что m <= n. - Присвоить переменной s начальное значение 0. - Начать цикл for от i = m до i = n с шагом 1. - В теле цикла увеличить значение s на i * i, то есть на квадрат текущего числа i. - Закончить цикл for. - Вывести на экран значение s, которое является искомой суммой квадратов.

Пример кода на Паскаль, реализующего этот алгоритм, можно найти по ссылке [Киберфорум](https://www.cyberforum.ru/pascalabc/thread1895935.html) или [Учи.ру](https://uchi.ru/otvety/questions/nayti-summu-kvadratov-chisel-ot-m-do-n-paskal).