... n so tu nhien sap tang va ghi vao tep van ban co ten cho truoc *) program FincGen; uses crt; const BL = #32; { dau cach } (* Sinh du lieu *) procedure Gen(fn: string; n: integer); ... so nguyen trong khoang d den c va ghi vao mang a *) Procedure Gen(n,d,c: integer); tự viết procedure Xem(n: integer); Hiển thị mảng a, tự viết procedure Test; var n: integer; begin n ... đòi hỏi 10*10*10 = 1000 lần duyệt trong khi với h = 10 chỉ có 63 số thoả mãn điều kiện của đầu bài. Dùng phương pháp sinh ta nhận được đúng 63 số cần tìm, không phải duyệt thừa số nào. Bài 2.10....