Вычислить сумму ряда s = 1! + 2! + ... + n! - Turbo Pascal
Формулировка задачи:
Вычислить:
у = 1 !+ 2! + 3! +...+ n! (n>1 ).
Решение задачи: «Вычислить сумму ряда s = 1! + 2! + ... + n!»
textual
Листинг программы
var
y, n, i, p: longint;
begin
writeln('Введите число n');
readln(n);
if (n > 1) then
begin
y := 0;p := 1;
for i := 1 to n do
begin
p := p * i;
y := y + p;
end;
writeln('y = ', y);
end
else writeln('Неверный ввод');
end.
Объяснение кода листинга программы
- В начале объявляются переменные y, n, i и p типа longint.
- Затем выводится сообщение «Введите число n», и считывается значение переменной n с помощью функции readln.
- Если значение n больше 1, то инициализируются переменные y и p: y устанавливается в 0, а p в 1.
- Далее идет цикл for, который выполняется от 1 до n. На каждой итерации значение переменной p умножается на текущее значение i, а переменная y увеличивается на полученную сумму.
- После завершения цикла выводится значение переменной y.
- Если значение n меньше или равно 1, то выводится сообщение «Неверный ввод».