Lần lượt in các bảng cửu chương.

0 bình luận về “Lần lượt in các bảng cửu chương.”

1. Program Cuu_Chuong_1;

    

   uses crt;

   var  i,j : integer;

   begin

   clrscr;

   for i:= 2 to 9 do

   Begin

   Writeln(‘Bang cuu chuong ‘,i);

   For j := 1 to 9 do writeln(i,’ x ‘, j, ‘ = ‘, j*i);

   readln

   end;

   readln

   end.

   Bình luận

2. Program Cuu_Chuong_1;
   uses crt;
   var i,j : integer;
   begin
    clrscr;

    for i:= 2 to 9 do
    Begin
    Writeln(‘Bang cuu chuong ‘,i);
    For j := 1 to 9 do writeln(i,’ x ‘, j, ‘ = ‘, j*i);
    readln
    end;
    readln
   end.

   Bình luận