高校问答爆炸实验室:pascal题目!!
来源：百度文库 编辑：高校问答 时间：2024/05/03 22:51:31
打印99乘法表.谢谢
var i,j,k,l:integer;
s:string;
begin
for i:=1 to 9 do begin
for j:=i to 9 do begin
k:=i*j;
str(k,s);
l:=length(s);
if l=1 then writeln(i,'*',j,'=',k,' ')
else writeln(i,'*',j,'=',k,' ');
end;
writeln;
end;
end.