/ SB域 /

记录详情

Accepted

/usr/bin/ld.bfd: warning: /out/link.res contains output sections; did you forget -T?
# 状态 耗时 内存占用
#1 Accepted 1ms 256.0 KiB

代码

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