Найти сумму членов ряда - PascalABC.NET (25038)

Формулировка задачи:

Дано целое число N (> 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + … + (2·N)^2 (целое число). Входные данные: ввести целое число N (1<=n<=10). Выходные данные: вывести сумму N^2 + (N + 1)^2 + (N + 2)^2 + … + (2·N)^2 (целое число).

Решение задачи: «Найти сумму членов ряда»

Листинг программы

var n,i,s:integer;
begin
repeat
write('Введите число от 1 до 10 n=');
readln(n);
until n in [1..10];
s:=0;
for i:=0 to n do
s:=s+sqr(n+i);
write('Сумма=',s)
end.

Объяснение кода листинга программы

В этом коде используется цикл repeat-until для повторного запроса ввода числа от 1 до 10, пока пользователь не введет число в этом диапазоне. Переменная n используется для хранения этого числа. Затем код переходит к циклу for, который проходит от 0 до n. В каждой итерации сумма s увеличивается на квадрат суммы n и i. Наконец, код выводит итоговую сумму с помощью функции write.