Всі умови | Умова: Дано натуральне число n. Обрахувати...
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №335)
program p335_1;
var
s, k, j, n, c : integer;
begin
write('n = '); readln(n);
s := 0;
for k := 1 to n do
begin
c := 1;
for j := 0 to k do
c := c * (k + j);
s := s + c;
end;
writeln('Suma: ', s);
readln;
end.