Viết chương trình nhập in cửu chương 12 và13, cách nhau 10 khoảng trắng

0 bình luận về “Viết chương trình nhập in cửu chương 12 và13, cách nhau 10 khoảng trắng”

1. Program Hotboy ;

   uses crt;

   var j : integer;

   begin

       clrscr;

       Writeln(‘Bang cuu chuong ‘,12);

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

   Writeln(‘Bang cuu chuong ‘,13);

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

       readln

     

   end.

   Bình luận

2. program oken;

   uses crt;

   var i,j:longint;

   begin

   clrscr;

   for j:=1 to 10 do

      begin

         for i:= 12 to 13 do

             write(i,’ * ‘,j,’= ‘,j*i:10);

          writeln;

        end;

   readln;

   end.

   Bình luận