如下的九九乘法表，该作怎样输出，编写程序(用pascal)
答案:3 悬赏:0 手机版
解决时间 2021-11-22 09:34
- 提问者网友：我没有何以琛的痴心不悔
- 2021-11-21 14:04
如下的九九乘法表，该作怎样输出，编写程序(用pascal)
最佳答案
- 五星知识达人网友：动情书生
- 2021-11-21 15:16
var i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=1 to 1 do write(i*j:3);
writeln;
end;
end.追问那这一种怎么打呢？谢谢！追答var i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do if j>=i then write(i*j:3);
writeln;
end;
end.
begin
for i:=1 to 9 do
begin
for j:=1 to 1 do write(i*j:3);
writeln;
end;
end.追问那这一种怎么打呢？谢谢！追答var i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do if j>=i then write(i*j:3);
writeln;
end;
end.
全部回答
- 1楼网友：蕴藏春秋
- 2021-11-21 15:59
var
i,j:longint;
begin
write('*');
for i:=1 to 9 do
write(i:3);
writeln;
for i:=1 to 9 do
begin
write(i);
for j:=1 to i do
write(i*j:3);
writeln;
end;
end.
i,j:longint;
begin
write('*');
for i:=1 to 9 do
write(i:3);
writeln;
for i:=1 to 9 do
begin
write(i);
for j:=1 to i do
write(i*j:3);
writeln;
end;
end.
- 2楼网友：鱼芗
- 2021-11-21 15:52
var i,j:integer;
begin
for i:=1 to 9 do {9行}
begin
for j:=1 to i do write(i*j,' '); {N行有N个数}
writeln; {换行}
end;
end.追问那这一种怎么打呢？谢谢！
begin
for i:=1 to 9 do {9行}
begin
for j:=1 to i do write(i*j,' '); {N行有N个数}
writeln; {换行}
end;
end.追问那这一种怎么打呢？谢谢！
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯