nhanh thì kim cương viết chương trình in ra 255 mã ascii
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
