viết chương trình khiểm tra 1 số có phải là số hoàn hảo hay không

0 bình luận về “viết chương trình khiểm tra 1 số có phải là số hoàn hảo hay không”

1. program kiemtra;

   uses crt;

   var n,i,s:integer;

   begin

   clrscr;

   write(‘Nhap so can kiem tra: ‘);   readln(n);

   s:=0;

   for i:=1 to n div 2 do

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

   if s=n then write(‘n,’ la so hoan hao’)

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

   readln

   end.

   Bình luận

2. program so_hoan_hao;

   uses crt;

   var i,n,tong:integer;

   begin

     clrscr;

       write(‘nhap n:’);readln(n);

        tong:=0;

          for i:=1 to n-1 do

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

          if tong= n then write(‘la so hoan hao’);

   readln;

   end.

   Bình luận