用delphi怎么编写下列程序?
编写函数
一、求得以下的所有正整数，它满足
1 是个3位数： xyz
2 xyz=x*x*x+y*y*y+z*z*z
二、找出被3、5、7除余数为1的最小的5个整数
第一个方法：直接找出来
第二种方法：编写2个函数
1、找出被3、5、7除余数为1的最小的1个整数
2、适当修改，找出5个整数
//寻找xyz,使得xyz=x*x*x+y*y*y+z*z*zprocedureTForm1。FindNumber1();vari,gw,sw,bw:Integer;beginfori:=100to999dobegingw:=imod10;sw:=idiv10mod10;bw:=idiv100;ifPower(gw,3)+Power(sw,3)+Power(bw,3)=ithenmmoResult。
Lines。Add(IntToStr(i));end;end;//直接找出被3、5、7除余数为1的最小的5个整数procedureTForm1。FindNumber2; :=0to4dommoResult。Lines。Add(IntToStr(3*5*7*i+1));end;//找出被3、5、7除余数为1的最小的1个整数procedureTForm1。
FindNumber3; :=0toMaxIntdoif(imod3=1)and(imod5=1)and(imod7=1)thenbeginmmoResult。Lines。Add(IntToStr(i));Break;end;end;//找出被3、5、7除余数为1的最小的5个整数procedureTForm1。
FindNumber4;vari, :=0;fori:=1toMaxIntdoif(imod3=1)and(imod5=1)and(imod7=1)thenbeginmmoResult。Lines。Add(IntToStr(i));Inc(nCount);ifnCount=5thenBreak;end;end;。
答：碘普胺 【别名】 优维显;碘普胺 ,二丙醇胺己酞氨酸,碘普罗胺【外文名】 Iopromide , Ultravist , Topromide ,Iopamiro...详情>>
答：的意思是找不到指定的文件，你确定你的文件路径正确吗？ 另外，调用的部分你用 n(shcmd)试试详情>>
