大家好,小百来为大家解答以上的问题。用while求100以内能被3整除的数的和，用while或repeat编程 找出被2 3 5除时余数为1的最小的十个数_这个很多人还不知道,现在让我们一起来看看吧！

1、汗……楼上的太有才了！ const n=5; var x:array[1..10] of integer; y:array[1..10] of Boolean; procedure outit; var i:integer; begin for i:=1 to n do write(x[i]); writeln; end; procedure search(v:integer); var i:integer; begin if v>n then begin outit;exit;end; for i:=1 to n do if y[i] then begin x[v]:=i;y[i]:=false;search(v+1);y[i]:=true;end; end; begin fillchar(y,sizeof(y),true); search(1); end. 说明：使用非递归的好处是节约内存，当一些题目对内存消耗较大时，建议使用非递归方式；但使用递归方式在程序运行时间上要好一些。

2、因为在每个节点扩展时，递归方式少一个范围超界判断。

本文到此分享完毕，希望对大家有所帮助。