9-9-2.pas

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

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