计算sm=1+2!+ ■■ n从控制台读入 o begin {读入n} o var nr m fact su read(o: sum {递规计算fact=m!} while>o do procedure factorial; begin begin m:=n; if m >o then fact: 1, begin fact fact x m; call factorial 1 sum ' sum fact call factorial: n:=n-1 end end ●end {输出n!} write( sum) ●end.计算 sum = 1! + 2 ! + ... + n!, n从控制台读入 ⚫ var n, m, fact, sum; ⚫ { 递规计算 fact = m! } ⚫ procedure factorial; ⚫ begin ⚫ if m > 0 then ⚫ begin ⚫ fact := fact * m; ⚫ m := m - 1; ⚫ call factorial; ⚫ end; ⚫ end; ⚫ begin ⚫ { 读入n } ⚫ read(n); ⚫ sum := 0; ⚫ while n > 0 do ⚫ begin ⚫ m := n; ⚫ fact := 1; ⚫ call factorial; ⚫ sum := sum + fact; ⚫ n := n - 1; ⚫ end; ⚫ { 输出n !} ⚫ write(sum); ⚫ end