Đề thi Lưới ô vuông vô hạn

Bài 65/2001 - Lưới ô vuông vô hạn
(Dành cho học sinh THCS và PTTH)
Program bai65;
uses crt;
var
 a:array[1..100,1..100] of integer;
 b,i,j,n,m,k:integer;
 f:text;
 t:boolean;
Begin
 clrscr;
 write('Nhap so n: '); readln(n);
 write('Nhap so m: '); readln(m);
 for i:=1 to m do
 for j:=1 to n do a[i,j]:=-1;
 for i:=m downto 1 do
 for j:=1 to n do
 begin
 b:=-1;
 repeat
 inc(b); t:=true;
 for k:=1 to n do if a[i,k]=b then t:=false; {kt hang}
 for k:=1 to m do if a[k,j]=b then t:=false; {kt cot}
 until t;
 a[i,j]:=b;
 end;
 assign(f,'KQ.TXT');
 rewrite(f);
 for i:=1 to m do
 begin
 for j:=1 to n do write(f,a[i,j]:5);
 writeln(f);
 end;
 close(f);
 write('Mo file KQ.TXT de xem ket qua!');
 readln;
END.
(Lời giải của bạn Nguyễn Trường Đức Trí)
Bài 66/2001 - Bảng số 9 x 9 
(Dành cho học sinh Tiểu họcvà THCS)
Ta sẽ điền vào các ô ở cột thứ năm các số lớn nhất có thể được. Nếu số lớn nhất trong các cột còn lại (chưa điền vào bảng) là a, thì số lớn nhất có thể điền vào cột thứ năm là a- 4 vì các số phải điền theo thứ tự tăng dần theo hàng mà sau cột thứ 5 còn có 4 cột nữa. Ta thực hiện điền các số giảm dần từ 81 vào nửa phải của bảng trước, sau đó dễ dàng điền vào nửa còn lại với nhiều cách khác nhau: 
1
2
3
4
77
78
79
80
81
5
6
7
8
72
73
74
75
76
9
10
11
12
67
68
69
70
71
13
14
15
16
62
63
64
65
66
17
18
19
20
57
58
59
60
61
21
22
23
24
52
53
54
55
56
25
26
27
28
47
48
49
50
51
29
30
31
32
42
43
44
45
46
33
34
35
36
37
38
39
40
41
 Program bai66;
 Uses ctr ;
 Var i,j : integer ;
 Begin 
 Clsscr;
 for i:= 1 to do 
 begin 
 for j:= 1to 4 do write (4*(i-1) + j :3);	 
 for j:= 0 to 4 do write (81-4*i-(i-1)+j :3) ;
 Writeln;
 end ;
 Write (‘tong cac so o cot 5: ‘,(37+77)*9div2);
 Readln 
 End.	
(Lời giải của bạn Nguyễn Chí Thức - Lớp 11A1 - Khối PTCTT - ĐHSPHN - Thôn Đại Đồng - xã Thuỵ Phương - Từ Liêm - Hà Nội)