viết chương trình Nhập 1 số nguyên dương n và kiểm tra xem n có phải là số hoàn hảo không.

0 bình luận về “viết chương trình Nhập 1 số nguyên dương n và kiểm tra xem n có phải là số hoàn hảo không.”

1. var n:longint;

   function hoanhao(n:longint):boolean;
   var x,dem,c:longint;
   begin
           dem:=0;
           for x:=1 to n-1 do
                   if n mod x=0 then
                           dem:=dem+x;
           if dem=n then exit(true);
           exit(false);
   end;

   begin

   write(‘Nhap n: ‘); readln(n);

   if hoanhao(n) then write(‘ La so hoan hao ‘) else write(‘Khong phai so hoan hao’);

   readln

   end.

   Bình luận

2. uses crt;

   var n:longint;

   tong,i:integer;

   BEGIN clrscr;

   write(‘Nhap so nguyen duong 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

   writeln(n,‘ la so hoan hao’)

   else writeln(n,‘khong la so hoan hao’);

   readln

   END.

   Bình luận