Tìm cách điền 9 chữ số khác nhau (1,2,3,4,5,6,7,8,9) vào bảng vuông 3x3 như sau:
abc
a’b’c’
a’’b’’c’’
Sao cho
(a’b’c’) = 2(abc)
(a’’b’’c’’) = 3(abc)
Kí hiệu (xxx) là cấu tạo số, không phải phép nhân.
Uses crt; Var i:longint; function test(a:longint):boolean; Var f:array[0..9] of boolean; a2,a3,j,l:longint; x:string; Begin fillchar(f,sizeof(f),true); str(a,x); For j:=1 to 3 do Begin Val(x[j],l); If f[l]=false then exit(false) else f[l]:=false; end; a2:=a*2; str(a2,x); For j:=1 to 3 do Begin Val(x[j],l); If f[l]=false then exit(false) else f[l]:=false; end; a3:=a*3; str(a3,x); For j:=1 to 3 do Begin Val(x[j],l); If f[l]=false then exit(false) else f[l]:=false; end; exit(true); end; Begin For i:=100 to 350 do If (test(i)) then Begin Writeln('------------------------------'); Writeln(i:4); Writeln(i*2:4); Writeln(i*3:4); Writeln('------------------------------'); end; readln; end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
Uses crt;
Trả lờiXóaVar i:longint;
function test(a:longint):boolean;
Var f:array[0..9] of boolean;
a2,a3,j,l:longint;
x:string;
Begin
fillchar(f,sizeof(f),true);
str(a,x);
For j:=1 to 3 do
Begin
Val(x[j],l);
If f[l]=false then exit(false) else f[l]:=false;
end;
a2:=a*2;
str(a2,x);
For j:=1 to 3 do
Begin
Val(x[j],l);
If f[l]=false then exit(false) else f[l]:=false;
end;
a3:=a*3;
str(a3,x);
For j:=1 to 3 do
Begin
Val(x[j],l);
If f[l]=false then exit(false) else f[l]:=false;
end;
exit(true);
end;
Begin
For i:=100 to 350 do
If (test(i)) then
Begin
Writeln('------------------------------');
Writeln(i:4);
Writeln(i*2:4);
Writeln(i*3:4);
Writeln('------------------------------');
end;
readln;
end.