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

100 Problems & Solutions Trang 152

best:=dem;
lkq:=td;
end;
a:=c;td:=w;
end;
procedure try(i:byte);
var j :byte;
begin
for j:=0 to 1 do
begin
td[1,i]:=j;
if i=n then process
else try(i+1);
end;
end;
procedure ghif;
var f :text;
i,j :integer;
begin
assign(f,fo);
rewrite(f);
if best<>maxint then
begin
writeln(f,best);
for i:=1 to m do
for j:=1 to n do
if lkq[i,j]=1 then writeln(f,i,#32,j);
end
else writeln(f,'No solution');
close(f);
end;
begin
clrscr;
best:=maxint;
docf;
try(1);
ghif;
end.
(Lời giải của Đinh Quang Huy)

Bài 86/2001 - Dãy số tự nhiên logic
(Dành cho học sinh Tiểu học)
Số đầu và số cuối cần tìm của dãy số logic đã cho là: 10 và 24.
Giải thích: dãy số đó là dãy các số tự nhiên liên tiếp không nguyên tố.

Bài 87/2001 - Ghi các số trên bảng
(Dành cho học sinh THCS)
Procedure bai87;

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