Số “Hoàn Hảo” là số có tổng các ước bằng chính nó (không kể ước là chính nó), ví dụ: 6=1+2+3, 28=1+2+4+7+14 là các số “Hoàn Hảo”. Viết chương trình Pasacal nhập một số tự nhiên n từ bàn phím, in ra màn hình các số hoàn hảo nhỏ hơn số tự nhiên n đã cho trước.
program sohoanhao;
uses crt;
var n,i : longint;
function shh(x : integer) : boolean;
var i,t : integer;
begin
t:=0;
for i:=1 to x-1 do if x mod i = 0 then t:=t+i;
if t=x then shh:=true else shh:=false;
end;
begin clrscr;
write(‘Nhap so tu nhien n :’); readln(n);
writeln(‘Cac so hoan hao nhu hon ‘,n,’ la :’);
for i:=1 to n-1 do if shh(i)=true then writeln(i:3);
readln
end.
Program Hotboy;
uses crt;
Var S, n,i,j: longint;
Begin
clrscr;
Write(‘Nhap so n tu ban phim ‘); Readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if (i mod j = 0 ) then S:=S+j;
If S = 2*i then write(i:3:6,’ ‘);
End;
Readln
End.