记录编号 82543 评测结果 AAAAA
题目名称 水仙花数 最终得分 100
用户昵称 Gravatar我密码是sjb 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2013-11-25 18:13:33 内存使用 0.17 MiB
显示代码纯文本
var
a,s,d,f,g:longint;
begin
assign(input,'daff.in');
assign(output,'daff.out');
reset(input);
rewrite(output);
read(a);
s:=a mod 10;
d:=a div 10 mod 10;
f:=a div 100;
s:=s*s*s;
d:=d*d*d;
f:=f*f*f;
g:=s+d+f;
if a=g then
write('TRUE') else write('FALSE');
close(input);
close(output);
end.