Đề thi HSG tin học lớp 9
... 43] of byte =
(1,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,1,0,1);
type mang=array[1 20] of byte;
mang1=array[1 20] of boolean;
var n:byte;
a:mang;
b: mang1;
... t,i1,j1,k1:integer;
kt:boolean;
begin
kt:=true;
for i1:=1 to n-1 do
for j1:=i1+1 to n do
if (j1-i1>=2) then
for k1:=i1+1 to j1-1 do
if (xet[hoanvi[i1],hoanvi[k1],hoanvi[j1]]=false) then...
Ngày tải lên :
18/07/2013, 01:25