Question

Số hoàn hảo là số tự nhiên có giá trị bằng tổng các ước thực sự của nó(các ước nhỏ hơn chính nó) V.dụ 1 vài số hoàn hảo 6:1+2+3=6 ;28:1+2+4+7+14=28 Em hãy viết chương trình xác định số hoàn hảo đầu tiên lớn hơn số tự nhiên n được nhập vào từ bàn phím

Answer 1

Program HOC24;

var i,t,k,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0; k=0;

while k=0 do

begin

n:=n+1;

for i:=1 to n do if n mod i=0 then t:=t+i;

if t=n then

begin

write(n);

k:=k+1

end else t:=0;

end;

readln

end.