viết chương trình in ra 255 mã ASCII

0 bình luận về “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.

   CHÚC BẠN HỌC TỐT !!!

   Bình luận

2. uses crt;
   var i:longint;
   begin
   clrscr;
      for i:=1 to 255 do
         begin
            writeln(‘Ma ASCII cua ‘,i,’ la: ‘,chr(i));
            readln;
         end;
   readln
   end.

   Bình luận