回 帖 发 新 帖 刷新版面

主题:[讨论]求助pascal的循环题目

题目如下
1.用一张1元币换1分、2分和5分的硬币,每种至少一枚,问有几种换法?(各几枚?)
2.输入正整数n,显示如下n行的数字三角形:
1
12
123
....
1234....n

3.编程输出九九乘法表。
1*1=1
2*1=2  2*2=4
3*1=3  3*2=6  3*3=9
...................
求完整的程序体,也可发到我邮箱648614075@qq.com
各位帮帮忙把...........有好答案追加全部家当...

回复列表 (共5个回复)

沙发

好水,不想做!自己做吧!

板凳

我会,先给分

3 楼

你好狡猾! 嘿嘿!

4 楼

嘿嘿,你说‘有好答案追加全部家当’,你有啥家当啊!把自己卖了吗?

5 楼

2.
var n,i,j:longint;
begin
     readln(n);
     for i:=1 to n do
     begin
           for j:=1 to i do
           write(j:3);
           if j=i then writeln;
end;
end.
3.var n,i,j:longint;
begin
     readln(n);
     for i:=1 to n do
     begin
           for j:=1 to i do
           write(j,'*',i,'=',j*i:3);
           if j=i then writeln;
end;
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册