小丝望楼主采纳
var s,s1,s2,s3:string;
a1,a2,a3:integer;
k:integer;
ch:char;
begin
for a1:=102 to 329 do begin
a2:=a1*2; a3:=a1*3;
str(a1,s1); str(a2,s2); str(a3,s3);
s:=s1+s2+s3;
for ch:='0' to '9' do delete(s,pos(ch,s),1);
if s='' then begin
inc(k); writeln(' -----',s1,' ',s2,' ',s3);
end;
end;
end.能不能写出每句话的意思