编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program sss;

var

k,i,t,j:integer;

begin

readln(k);

for i:=1 to 20000 do

begin

t:=0;

for j:=1 to trunc(sqrt(i)) do

if i mod j=0 then inc(t,2);

if j*j=i then dec(t);

if t=k

then begin writeln(i); halt; end;

end;

writeln('NO SOLUTION');

end.

Flag 　　 Accepted

题号 　　P1229

类型(?) 　　其它

通过 　　1794人

提交 　　3699次

通过率 　　48%

难度 　　2

提交 讨论 题解