pascal语言编程题：1、楼梯有n(n<50)阶台阶，上楼可以一步1个台阶，也可以一步2个

pascal语言编程题：1、楼梯有n(n<50)阶台阶，上楼可以一步1个台阶，也可以一步2个

六道题分有点少啊，平均一道题3分不到，第一题 斐波那契数列 f[i]=f[i-1]+f[i-2]有兴趣+个矩阵乘法，
第二题简单for循环 for i:=100 to 999 do if check(i) then writeln(i)
check(x){ if (x mod 10>7 )or((x div 10)mod 10>7)or（x div 100>7）or(abs（x mod 10-x div 100）=(x div 10 mod 10))then exit(false)else exit(true);} 后面的意思意思第三题 按题意分离后模拟，第4题 简单搜索 不需要剪枝，第5题 inc(ans[score[i] div 10]); 第6题 按题意和提示做吧，这些语言题初学时硬着头皮写就是了，不会的写得丑了还要找老师看看就行了追问pascal语言编程题：
从键盘输入任意10个整数，把其中的正数之和与负数之和分别输出。（提示：for循环+if语句），求题解答案追答var
i,j,z,f:longint;
begin
readln(n);
z:=0;
f:=0;
for i:=1 to n do
begin
readln(j);
if j> 0 then z:=z+j;
if j<=0 f:=f+j;
writeln(z);
writeln(f);
end.