uses crt;
var i,n:longint;
begin
clrscr;
write('n= ');readln(n);
for i:=n downto 1 do
begin
clrscr;
writeln('dem nguoc ',i); delay(1000);
end;
write('het gio');
readln
end
Đang tải... (xem toàn văn)
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
| Định dạng | |
|---|---|
| Số trang | 1 |
| Dung lượng | 22 KB |
Nội dung
uses crt;
var i,n:longint;
begin
clrscr;
write('n= ');readln(n);
for i:=n downto 1 do
begin
clrscr;
writeln('dem nguoc ',i); delay(1000);
end;
write('het gio');
readln
end
Ngày đăng: 27/04/2016, 18:16
Xem thêm
TỪ KHÓA LIÊN QUAN
TÀI LIỆU CÙNG NGƯỜI DÙNG
TÀI LIỆU LIÊN QUAN