查人人中国名人网内部会计控制开题答辩:pascal题目!!
来源：百度文库 编辑：查人人中国名人网 时间：2024/07/06 20:26:09
打印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.