小丝望楼主采纳 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. 再问: 能不能写出每句话的意思