UC知道PASCAL程序设计求解
来源：百度知道 编辑：UC知道 时间：2024/05/10 10:46:40
几道提目
需要1天内尽快解决
1、用1—9不重复的填入3行3列的方格镇中，并把每一行都看作3位数，使得第一行是地二行的2倍，地三行是第1行的3倍答案必须是如下格式（不是答案）
123
234
345
2、用1-9不重复的填入一个三角镇
是每一行分别是1位，2位，3位，4位的完全平方数
3、
需要1天内尽快解决
1、用1—9不重复的填入3行3列的方格镇中，并把每一行都看作3位数，使得第一行是地二行的2倍，地三行是第1行的3倍答案必须是如下格式（不是答案）
123
234
345
2、用1-9不重复的填入一个三角镇
是每一行分别是1位，2位，3位，4位的完全平方数
3、
-----1-------
Program ex1;
Var
i,j,k:integer;
v:set of 1..9;
procedure cut(i:integer);
begin
v:=v-[i mod 10];
i:=i div 10;
v:=v-[i mod 10];
i:=i div 10;
v:=v-[i mod 10];
end;
begin
for i:=102 to 321 do
begin
v :=[1..9];
cut(i);
j := i * 2;
cut(j);
k := i * 3;
cut(k);
if v=[] then
begin
writeln(i);
writeln(j);
writeln(k);
writeln; {如果只要输出1组答案就把这行改成“HALT;”不含引号}
end;
end;
end.
-------2----------
Program ex;
Var
i,j,k,l:integer;
v:set of 1..9;
procedure cut(i:integer);
begin
while i<>0 do
begin
v:=v-[i mod 10];
i:=i div 10;
end;
end;
begin
for i:=1 to 3 do
for j:=4 to 9 do
for k:=10 to 31 do
for l:=32 to 99 do
begin
v:=