Nhập số nguyên dương n và kiểm tra xem n có phải là số hoàn hảo không biết rằng số hoàn hảo là số có tổng các ước số đó ngoại trừ nó Bằng chính nó
Thuật toán
bước 1 duyệt các số nguyên dương từ 1 đến n (ndiv2)
bước 2 nêu số nguyên dương n chia hết cho số nguyên Dương số thứ i thì cộng thêm i vào tổng
Bước 3 nếu tổng bằng n thì n là số hoàn hảo ngược lại n không phải là số hoàn hảo
Bước 4 kết thúc thuật toán
Hãy viết chương trình giống như thật toán đã cho
GIÚP Mình Với ạ????
program kiemtra;
uses crt;
var n,i,tong:integer;
begin
clrscr;
write(‘Nhap so n: ‘); readln(n);
tong:=0;
for i:=1 to n div 2 do
if n mod i=0 then tong:=tong+i;
if tong=n then write(n,’ la so hoan hao’)
else write(n,’ khong phai so hoan hao’);
readln
end.
uses crt;
var n,i,t:longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n div 2 do if n mod i=0 then t:=t+i;
if t=n then writeln(n,’ la so hoan toan’)
else writeln(n,’ khong phai la so hoan toan’);
readln
end.