Question

viết chương trình nhập vào số tự nhiên n từ bàn phím và kiểm tra n có phải là số hoàn chỉnh không (Số hoàn chỉnh là 1 số có tổng các ước nhỏ hơn nó bằng chính nó).

Answer 1

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n-1 do 

  if n mod i=0 then t:=t+i;

if t=n then writeln(n,' la so hoan chinh')

else writeln(n,' khong la so hoan chinh');

readln;

end.

Answer 2

program hoan_chinh;

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n-1 do

 begin

 if n mod i = 0 then s:=s+i;

 end;

if s=n then writeln('1') {n là số chính phương thì viết 1}

else writeln('0');{n không là số chính phương thì viết 0}

end.