Question

3n+1小于2009,5n+1可以表示为完全平方数,求正整数n的解有多少个?

Answer 1

报告～!

22个～!

具体算法

delphi实现

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

procedure TForm1.Button1Click(Sender:TObject);

var

n:integer;

i:integer;

begin

n:=1;

i:=0;

while((3*n+1)