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[r]
(1)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 for j:=1 to n a[i,j]:=-1; for i:=m downto for j:=1 to n begin b:=-1; repeat inc(b); t:=true; for k:=1 to n if a[i,k]=b then t:=false; {kt hang} for k:=1 to m 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 begin for j:=1 to n 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 bạn Nguyễn Trường Đức Trí) Bài 66/2001 - Bảng số x (Dành cho học sinh Tiểu họcvà THCS) Ta điền vào các ô cột thứ năm các số lớn có thể Nếu số lớn các cột còn lại (chưa điền vào bảng) là a, thì số lớn có thể điền vào cột thứ năm là a- vì các số phải điền theo thứ tự tăng dần theo hàng mà sau cột thứ còn có cột Ta thực điền các số giảm dần từ 81 vào nửa phải 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: (2) 77 78 79 80 72 73 74 75 10 11 12 67 68 69 70 13 14 15 16 62 63 64 65 17 18 19 20 57 58 59 60 21 22 23 24 52 53 54 55 25 26 27 28 47 48 49 50 29 30 31 32 42 43 44 45 33 34 35 36 37 38 39 40 Program bai66; Uses ctr ; Var i,j : integer ; Begin Clsscr; for i:= to begin for j:= 1to write (4*(i-1) + j :3); for j:= to 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 bạn Nguyễn Chí Thức - Lớp 11A1 Đồng - xã Thuỵ Phương - Từ Liêm - Hà Nội) 81 76 71 66 61 56 51 46 41 - Khối PTCTT - ĐHSPHN - Thôn Đại (3)