怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 14:41:53

怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1
怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1

怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1
1
121
12321
1234321
12321
121
1
程序如下：
var
i,s,j,k:longint;
begin
for i:=-3 to 3 do
begin
s:=abs(i);write('':s);
for j:=1 to 4-s do
write(j);
for k:=3-s downto 1 do
write(k);
writeln;
end;
end.
如果需要输入n的话稍修改下便可

怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1 .用FREE PASCAL 编程序打印出下列平行四边形图案我知道网上有答案,但是看不懂,能具体点么?我智商比较低. pascal:一个6位数的2,3,4,5,6倍仍然是6位数,而且它们都由原数的6个数字组成,这个数是多少?祝开心~我要的是怎么用pascal编!开心~ pascal关于因式分解的有关问题用pascal语言编出一个程序输入：100输出：2*2*5*5急用! 用PASCAL怎么编若干个连续整数之和是2003,试写出这些整数 pascal的蛇形矩阵,设有一个n*n的矩阵（0＜n＜50）用pascal语言怎么编? 怎么用Pascal编一个判断回文数的程序判断方法是把这个数倒过来,比较着两个数是否相等.在每一句话的后面//解释一下, pascal 编程输入下列图案这个图怎么用英语编故事? 这个图怎么用英语编故事编一个随机产生一个100以内的四则运算题,要求先输出这个四则运算的式子,这个四则用free Pascal 用pascal编求出1—100的5的倍数或7的倍数的和根据式子编出一个应用题式子为：3000/x=2400/x-12编一个应用题是用这个式子解就行了速回 Free Pascal IDE n=1.5,m=3求m 怎么编用正方形,三角形,圆形,长方形,椭圆形拼成图案编故意用(1-20%+10%)×100这个算式编一道题解决实际问题情境,算出结果,说结果意义用c++打印出以下菱形图案 * *** *** *亲,这个还没学,求教******** matlab这个函数怎么编?