9-9-3.pas

关于课件 好多种结构的算法 等等 大家自己看吧

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