Accepted
/usr/bin/ld.bfd: warning: /out/link.res contains output sections; did you forget -T?
代码
var
c:char;
i:integer;
s,st:string[9];
b:boolean;
begin
for i:=123 to 329 do
begin
str(i,s);
str(i*2,st);
s:=s+st;
str(i*3,st);
s:=s+st;
b:=true;
for c:='1' to '9' do if pos(c,s)=0 then b:=false;
if b then writeln(i,' ',i*2,' ',i*3);
end;
end.
信息
- 递交者
- 类型
- 递交
- 题目
- 三连击(hzwlhs团队试机题目3)
- 题目数据
- 下载
- 语言
- Pascal
- 递交时间
- 2017-08-22 13:31:07
- 评测时间
- 2017-08-22 13:31:07
- 评测机
- 分数
- 100
- 总耗时
- 1ms
- 峰值内存
- 256.0 KiB