viết chương trình xét xem n có phải là số hoàn chỉnh không

0 bình luận về “viết chương trình xét xem n có phải là số hoàn chỉnh không”

1. Xin nhat

   Program SHC;

   Uses crt;

   VAR

   BEGIN

   clrscr;

   Write(‘Nhap n:’);Readln(n);

   For i:= 1 to n do

   If n mod i = 0 then S:= S+i;

   If S=n then Write(n, ‘ la so hoan chinh’)

   Else Write(n, ‘ khong phai so hoan chinh’);

   Readln

   END.

   Bình luận

2. program so_hoan_chinh;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

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

          S:=0;

          for i:=1 to n div 2 do

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

          if n=t then write(‘La so hoan hao’)

                 else write(‘Khong phai so hoan hao’);

          readln;

   end.

   Bình luận