Найти сумму членов ряда - 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 (целое число).
Решение задачи: «Найти сумму членов ряда»
textual
Листинг программы
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.