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

100 Problems & Solutions Trang 127

a[i,j]:= not (a[i,j-1] xor a[i,j+1] xor a[i-1,j] xor a[i+1,j]);
If a[i,j] then begin dec(dem);writeln(f,i,' ',j) end
end;
end;
End;
Procedure Solve2;
Begin
for i:=1 to n do
for j:=1 to n do
If not a[i,j] then
begin
If i >1 then
begin
a[i-1,j]:=false;
inc(dem);
writeln(f, i-1, ' ', j);
end
else
If i <n then
begin
a[i+1,j]:=false;
inc(dem);
writeln(f, i+1, ' ', j);
end
else
If j >1 then
begin
a[i,j-1]:=false;
inc(dem);
writeln(f, i, ' ', j-1);
end
else
begin a[i,j+1]:=false; inc(dem); writeln(f, i, ' ', j+1) end;
exit;
end;
End;
BEGIN
Init;
Assign(f,out); rewrite(f);
While dem >0 do
begin
writeln(dem); d:=dem; solve1;
If (d=dem) and (dem >0) then solve2;
end; Close(f);
END.
(Lời giải của bạn Nguyễn Chí Thức - khối PTCTT - ĐHSP - Hà Nội)

Bài 73/2001 - Bài toán chuỗi số
(Dành cho học sinh Tiểu họcvà THCS)
Hai số cuối là 59 và 65.

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