Найти сумму членов последовательности - Free Pascal
Формулировка задачи:
найти сумму членов последовательности k=1,...,n , n вводит пользователь
Решение задачи: «Найти сумму членов последовательности»
textual
Листинг программы
s:=0; for k:=1 to n do s:=s+(k*k-3)/k/k/k;
Объяснение кода листинга программы
- Переменная
sинициализируется значением 0. - Происходит цикл от 1 до n.
- Внутри цикла значение переменной
sувеличивается на (k*k-3)/k/k/k. - Значение переменной
sпредставляет собой сумму членов последовательности.