viết chương trình in ra bảng mã ascii

0 bình luận về “viết chương trình in ra 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. uses crt;
   var i:longint;
   begin
   clrscr;
      for i:=1 to 255 do begin write(chr(i)); if i mod 50=0 then writeln; end;
   readln
   end.

   Bình luận