项目管理课程心得体会:pascal编程 帮忙解决一下

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 17:30:50
求正整数A和B之间的完全数(A<B). 完全数是指它的小于该数本身的因子之和等于它本身,如6=1+2+3,6即是一个完全数。

program lkwqs;
var
a,b,i,j,k,m,n:longint;
begin
readln(a,b);
for i:=a to b do
begin
k:=0;
for j:=1 to i div 2 do
if i mod j=0 then k:=k+j;
if k=i then write(i,' ');
end;
end.

设圆心为x1、y1,求得圆心与坐标点x、y之间的距离L=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1)),然后再判断L是否大于1并且小于2,若判断结果为真,则输入的坐标点x,y在圆环内部。