... *) BEGIN ClrScr; Nhap; Chuanbi; Tinhsl; ghiKQ; END Bài 7/1999 - Miền mặt phẳng chia đường thẳng (Dành cho học sinh THPT) Program Bai7; (* Tinh so giao diem cua n duong thang ko trung ... Procedure Tinhslmien; Var i : integer; Begin For i := to n Inc( smien ,cattruoc( i ) + ); End; (* *) Procedure GhiKQ; Begin Writeln(So mien mat phang duoc chia ... *) BEGIN Clrscr; Nhap; Chuanbi; Tinhslmien; GhiKQ; END Bài 8/1999 - Cân táo (Dành cho học sinh Tiểu học) Số lần cân Cách cân sau: Lần 1: Chia 27 táo thành phần, phần Đặt phần lên đĩa...