如题所述
program ex1208;
var n,i,j,t:integer;
begin
readln(n); t:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
t:=t+1;
write(t:3);
end;
writeln;
end;
end.
楼下别抄袭!bt的寒假信奥作业!!
var n,i,j,t:integer;
begin
readln(n); t:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
t:=t+1;
write(t:3);
end;
writeln;
end;
end.
楼下别抄袭!bt的寒假信奥作业!!
温馨提示:答案为网友推荐,仅供参考