procedure hoan_doix:integer; var y:integer; program thambien1; uses crt; var a,b:integer; procedure hoan_doivar x,y:integer; var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrsc[r]
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
| Định dạng | |
|---|---|
| Số trang | 14 |
| Dung lượng | 249 KB |
Nội dung
procedure hoan_doix:integer; var y:integer; program thambien1; uses crt; var a,b:integer; procedure hoan_doivar x,y:integer; var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrsc[r]
Ngày đăng: 08/07/2021, 11:47