9-9.pas

来自「关于课件 好多种结构的算法 等等 大家自己看吧」· PAS 代码 · 共 19 行

PROGRAM P99table(INPUT,OUTPUT);
  VAR  a,b,c:integer;
  BEGIN
    write(1:9);
    FOR a:=2 to 9 do
      write(a:8);
    writeln;
    FOR a:=1 to 9 do
      Begin
        write(a);
        for b:=1 to 9 do
          begin
            c:=a*b;
            write(a:2,'*',b:2,'=',c:2)
          end;
        writeln
      end;
  END.