Bài 2: Số hoàn hảo là số có tổng các ước ( trừ số đó) bằng chính nó.
Ví dụ: 6 là số hoàn hảo vì 6=1+2+3.
Hãy viết chương trình con kiểm tra 1 số nguyên có là số hoàn hảo hay không?
Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.
Bài 2: Số hoàn hảo là số có tổng các ước ( trừ số đó) bằng chính nó.
Ví dụ: 6 là số hoàn hảo vì 6=1+2+3.
Hãy viết chương trình con kiểm tra 1 số nguyên có là số hoàn hảo hay không?
Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.
program phuongt;
uses crt;
var n: integer;
function kt: integer;
var i, s: integer;
begin
s:=0;
for i:=1 to n-1 do if n mod i = 0 then s:=s+i;
if s=n then write(n, ‘ la so hoan hao’)
else write(n, ‘ khong phai so hoan hao’);
end;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
kt;
readln
end.
uses crt;
var i,n:word;
a:array[1..1000] of longint;
function hh(x:longint):boolean;
var t:longint;i:word;
begin
t:=1;
for i:=2 to (x div 2) do
if x mod i = 0 then t:=t+i;
if t=x then exit(true);
exit(false);
end;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if hh(a[i]) = true then writeln(a[i],’la so hoan hao’)
else writeln(a[i],’khong phai la so hoan hao’);
readln;
end.