in ra 5 vị trí rơi của 1 quả trứng. biết sau mỗi lần rơi 1 quả thì tạm dừng 3 giây. giúp em với, bài tập tin 8 cần gấp

0 bình luận về “in ra 5 vị trí rơi của 1 quả trứng. biết sau mỗi lần rơi 1 quả thì tạm dừng 3 giây. giúp em với, bài tập tin 8 cần gấp”

1. uses crt;
   var i: longint;
   begin
   clrscr;
   for i:=1 to 5 do
    begin
    writeln(‘O’);
    delay(3000);
    end;
   end.

   Bình luận

2. uses crt;
   var i: longint;
   begin
               clrscr;
               for i:=1 to 5 do
                             begin
                                  write(‘O’:10);
                                  delay(3000);
                              end;

               readln;
   end.

   Bình luận