Viết chương trình hiện ra bảng cửu chương lớp 8..

0 bình luận về “Viết chương trình hiện ra bảng cửu chương lớp 8..”

1. program bang_cuu_chuong_lop_8 ;
   uses crt;
   var i : byte;
   begin
   clrscr;
   writeln (‘bang cuu chuong lop 8 ‘);
   for i:=1 to 10 do ;
   writeln(‘8 * ‘,i,’= ‘,8*i);
   readln;
   end.

   Bình luận

2. Uses crt;
   Var
     a:array[1..9,1..9] of Integer ;
     i,j:byte ;
   Begin
     Clrscr ;
     For i := 1 to 9 do
       For j := 1 to 9 do
         A[i,j] := i*j ;
     For i := 1 to 9 do
       Begin
         For j := 1 to 9 do Write(a[i,j]:5);
         Writeln ;
         Writeln ;
       End ;
     Readln ;
   End.

   Bình luận