Nhập pascal để có 50-100 trái tim hiện lên tục trên màn hình , hiện lần lượt ở chỗ bất kì , giữa trái tim ghi gửi crush ( Dành cho mấy ông giỏi tin cx đc ) :)))
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
uses crt; var x,y: byte; begin clrscr; textcolor(lightred); randomize; repeat x:=random (100); y:=random (22); if (x<>0) and (y<>0) then begin gotoxy (x,y); writeln (chr(3)); delay (40); end; until keypressed; readln; end.