求第5题的数据

yuzoe @ 2016-08-24 14:30:30

by yuzoe @ 2016-08-24 15:44:15

var
  i,a,b,c,e:longint;
  s,s1,s2,s3:string;
  j:char;
  t:boolean;
begin
  read(a,b,c);
    for i:=123 to (1000 div c) do
    begin
          str(i*a,s1);
           str(i*b,s2);
        str(i*c,s3);
        s:=s1+s2+s3;
        for j:='1' to '9' do
                if pos(j,s)=0 then break;
        if pos(j,s)=0 then continue;begin
        t:=true;
        writeln(i*a,' ',i*b,' ',i*c);end;
    end;
    if t=false then write('No!!!')
end.

by yuzoe @ 2016-08-24 16:26:41

已做出