Pascal题目求解

第一题：
program l_1(input,output);
var
a:array[0..9] of integer;
f:boolean;
i,ii,iii,j:integer;
procedure fl(x:integer);
begin
while x<>0 do
begin
a[x mod 10]:=a[x mod 10]+1;
x:=x div 10;
end;
end;
begin
for i:=123 to 321 do
begin
fillchar(a,sizeof(a),0)
ii:=i*2;
iii:=i*3;
fl(i);
fl(ii);
fl(iii);
f:=true;
for j:=0 to 9 do
if a[j]=0 then f:=false;
if f=true then writeln(i:5,ii:5,iii:5);
end;
end.
第二题：
program l_2(input,output);
var
a:char;
begin
for a:='A' to 'D' do
if (ord(a<>'A'))+(ord(a='C'))+(ord(a='D'))+ (ord(a<>'D'))=3 then writeln('thief=',a);
end.

第一个~枚举就好啊~~
2\3题 手算
OK?~