Page 162 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 162

repeat
for ch := '9' downto '0' do
begin
i := is; j := js;
while (s1[i] <> ch)and(i <= length(s1)) do inc(i);
while (s2[j] <> ch)and(j <= length(s2)) do inc(j);
if pa[i,j] = max - so then
begin
skq := skq + ch;
is := i+1; js := j+1;
break;
end;
end;
inc(so);
until max=so;
while (skq[1] = '0')and(skq<>'0') do delete(skq,1,1);
end;
procedure ghif;
var f : text;
begin
assign(f,fo);
rewrite(f);
if max = 0 then write(f,' Khong co xau chung !!!...')
else
begin
wastingtime;
write(f,skq);
end;
close(f);
end;
BEGIN
docf;
idonotknow;
ghif;
END.

Bài 97/2002 - Thay số trong bảng
(Dành cho học sinh Tiểu học)
1 2 3
4 a b c
5 d e f
6 g h i
Ngang
4 - Bội số nguyên của 8;
5 - Tích của các số tự nhiên liên tiếp đầu tiên;
6 - Tích các số nguyên tố kề nhau
Dọc
1 - Bội nguyên của 11;
2 - Tích của nhiều thừa số 2;
3 - Bội số nguyên của 11.
Giải:
Từ (5) - Tích của các số tự nhiên đầu tiên cho kết quả là một số có 3 chữ số chỉ có thể là
120 hoặc 720 (1x2x3x4x5 = 120; 1x2x3x4x5x6 = 720).
Do đó, (5) có thể là 120 hoặc 720. Suy ra: f = 0; e = 2; d = 1 hoặc d = 7.
Tương tự, ta tìm được (6) có thể là 105 hoặc 385 (3x5x7 = 105; 5x7x11 = 385). Suy ra:
i = 5; h = 0 hoặc h = 8; g = 1 hoặc g = 3.

Tin học & Nhà trường 100 Đề Toán - Tin học