竞赛题库题解1015

1015:构建矩阵

题目描述

现请你构建一个N*N的矩阵，第i行j列的元素为i与j的乘积。（i，j均从1开始）

输入格式

输入的第一行为一个正整数C，表示测试样例的个数。
然后是C行测试样例，每行为一个整数N（1<=N<=9），表示矩阵的行列数。

输出

对于每一组输入，输出构建的矩阵。

样例输入

2
1
4

样例输出

1
1 2 3 4
2 4 6 8
3 6 9 12
4 8 12 16

program p1015;
var n,k,s,i,j:integer;
begin
 readln(n);
 for k:=1 to n do
 begin
 read(s);
 if s<>1 then
 begin
 for i:=1 to s do
  begin
   for j:=1 to s-1 do
    write(i*j,' ');
    writeln(i*s);
  end;
 end
 else
 writeln(1);
 end;
end.