- program Project2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils,StrUtils;
- var
- i,j:Integer;
- str:string;
- begin
- { TODO -oUser -cConsole Main : Insert code here }
- for i:=123 to 333 do
- begin
- str:=IntToStr(i)+' '+IntToStr(i*2)+' '+IntToStr(i*3);
- j:=1;
- while j <= 9 do
- begin
- if not AnsiContainsStr(str,IntToStr(j))then
- begin
- Break;
- end;
- j:=j+1;
- end;
- if j >= 10 then
- begin
- Writeln(str);
- end;
- end;
- Readln;
- end.
- //该片段来自于http://www.codesnippet.cn/detail/010320132268.html
来源: http://www.codesnippet.cn/detail/010320132268.html