n kiểm tra số hoàn thiện ( nâng cao lên chút ) ko làm cách bình thường ngắn thôi

0 bình luận về “n kiểm tra số hoàn thiện ( nâng cao lên chút ) ko làm cách bình thường ngắn thôi”

1. FUNCTION SOHT(n:integer):boolean;
   Var I,s:integer;
   Begin
   SOHT:=false;
   S:=0;
   For i:=1 to n div 2 do
   If n mod i=0 then
   S:=s+I;
   If s=n then
   SOHT:=true;
   End

   kha @@  chúc bn hc tốt

   Bình luận