记录编号 191360 评测结果 AAAAA
题目名称 水仙花数 最终得分 100
用户昵称 Gravatar天际游荡 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2015-10-07 11:51:02 内存使用 0.13 MiB
显示代码纯文本
var
a,b,c,i:integer;
begin
assign(input,'daff.in');
assign(output,'daff.out');
reset(input);
rewrite(output);
read(i);
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
if a*a*a+b*b*b+c*c*c=i then write('TRUE') else write('FALSE');
close(input);
close(output);
end.