十六课：寻找水仙数
发表时间：2002-10-28 00:00:00 关键词：奥赛,PASCAL,编程,源码
(点击：) 把这篇文章告诉我的QQ或MSN朋友
program xunhuan(input,output);
var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k then write(i:1,j:1,k:1,' ');
writeln;
end.
本站特约顾问律师常州东晟律师事务所朱立律师（电话13915029670，QQ646146109）提醒您：
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！