Sum to N pascal

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/07/07 09:30:52

Sum to N pascal
对任意给定的N (4

const a:array[1..2]of longint=(-1,1); var s,s1,n:longint; h:array[2..24]of longint; procedure js; var i:longint; begin for i:=2 to n-1 do s1:=s1+h[i]*i; if s1=n+1 then s:=s+1; s1:=0; end; procedure try(dep:longint); var i:longint; begin if dep>n-1 then js else for i:=1 to 2 do begin h[dep]:=a[i]; try(dep+1) end; end; begin assign(input,'sum.in'); reset(input); assign(output,'sum.out'); rewrite(output); readln(n); s:=0; s1:=0; try(2); writeln(s); close(input); close(output); end. 8好意思,可能晚了
记得采纳啊

pascal For i:=1 to n Sum = 0 n = 0 t = 1 For i = 1 To 100 Sum = Sum + t / n n = n 在N中取数 PASCAL pascal a to b 一个VBA程序段 sum = 0 n = 0 For i = 1 to 5 x = n/i n = n + 1 sum to calculate SUM(n) = 1 + 2 + 3 + ...+ n.The input will cons pascal程序设计输入一个整数n,n 用pascal语言编程：输出n(n Pascal习题习题2：a+b（sum.bas/ sum.pas/ sum.c）【问题描述】相信a+b问题对大家来说,应求N!左边第二位的数字 pascal pascal中定义2的n次方 3n+1问题pascal解答