[r]
(1)Bài 54/2001 - Bạn gạch số
(Dành cho học sinh Tiểu học THCS) Chúng ta viết 10 số nguyên tố đầu tiên: 11 13 17 19 23 29
là số có 16 chữ số, chứng minh khơng khó khăn sau gạch chữ số số nhỏ là: 11111229; cịn số lớn là: 77192329 Thật vậy:
a Gạch chữ số, để số cịn lại số có chữ số nhỏ (giữ nguyên thứ tự ban đầu) Nhìn vào dãy số ta thấy số nhỏ nhất, có năm chữ số sau chữ số thứ năm lại nhiều chữ số khác Do đó, chữ số đầu số cần tìm chắn phải chữ số Lí luận tương tự, để tìm chữ số lại
b Tương tự thế: chữ số lớn nhất, sau chữ số lại lại chữ số (mà ta cần giữ lại số có chữ số), nên ta chọn số chữ số đứng đầu chữ số cần tìm Chữ số lớn thứ hai 7, có hai chữ số 7, tất nhiên ta chọn chữ số (vì sau chữ số thứ cịn lại chữ số) Lí luận tương tự, ta tìm chữ số thứ hai chữ số cần tìm chữ số 7, chữ số cịn lại phải tìm tất nhiên chữ số sau chữ số
Bài 55/2001 - Bài toán che mắt mèo (Dành cho học sinh THCS PTTH) Program Che_Mat_meo;
Uses crt; Const td=200; Var i,j,n:integer; out:string; f:text; Procedure Xuli; Begin
for i:=1 to n begin
gotoxy(15,i+3); for j:=1 to n begin
if (odd(i))and(odd(j)) then begin
textcolor(11);
if out<>'' then write(f,'M ') else
begin
write('M '); delay(td); end;
(2)textcolor(14);
if out<>'' then write(f,'o ') else
begin write('o '); delay(td); end;
end; end; writeln(f); end; End; BEGIN
Clrscr; textcolor(2); Write('Nhap n= '); Readln(n);
if n<=20 then out:='' else
begin
out:='matmeo.inp';
writeln('Mo File meo.inp de xem ket qua'); end;
Assign(f,out); Rewrite(f);
writeln(f,'(Chu M Ki hieu cho meo, chu o ki hieu cho quan co)'); Xuli; writeln(f);
Writeln(f,'Tong cong co ',sqr((n+1) div 2),' meo'); Close(f);
Readln; END.