Question

pascal 判断一个数是否是完全数。用function函数来写

输入一个整数a，若它是完全数，则输出“YES” 否则输出“NO”

急求！！！！！！！！

Answer 1

var
i,n : longint;

function f(n : longint) : boolean;
var
i,s : longint;
begin
s := 0;
for i := 1 to n-1 do
if (n mod i = 0) then
inc(s,i);
if (s = n) then
exit(true)
else
exit(false);
end;

begin
readln(n);
writeln(f(n));
end.

关于程序里面有什么不懂的地方可以追问我..我上线后会第一时间回答~