KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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.
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.
Đá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.