nhanh thì kim cương viết chương trình in ra 255 mã ascii

0 bình luận về “nhanh thì kim cương viết chương trình in ra 255 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. program bmasccii;

   uses crt;

   var i:byte;

   begin

   for i:=0 to 255 do

   begin

    write(‘Ma ascii thu ‘,i,’ la: ‘,chr(i));

    if i+1 mod 22=0 then writeln;

   end;

   readln

   end.

   Bình luận