viết chương trình in ra màn hình bảng mã ASCII

0 bình luận về “viết chương trình in ra màn hình bảng mã ASCII”

1. uses crt;
   var i: byte;
   begin
    clrscr;
     for i:=0 to 255 do
      begin
       writeln (‘ma thu ‘,i,’la: ‘,CHR(i));
       if (i+1) mod 22= 0 then
        begin
         writeln (‘an phim bat ki de xem tiep’);
         readln;
        end;
      end;
    readln;
   end.

   Bình luận

2. Đáp án

   uses crt;

   var i: byte;

   begin

    clrscr;

     for i:=0 to 255 do

      begin

       writeln (‘ma thu ‘,i,’la: ‘,CHR(i));

       if (i+1) mod 22= 0 then

        begin

         writeln (‘an phim bat ki de xem tiep’);

         readln;

        end;

      end;

    readln;

   end.

   Bình luận