Viết chương trình đếm số hoàn hảo trong phạm vi n từ 1 đến n. giúp em với mấy anh chị ơi!!

0 bình luận về “Viết chương trình đếm số hoàn hảo trong phạm vi n từ 1 đến n. giúp em với mấy anh chị ơi!!”

1. uses crt;
   var n,i:longint;
   function shh(n:longint):boolean;
   var t,i:longint;
   begin
   t:=1;
   for i:=2 to trunc(sqrt(n)) do
   if sqr(i)=n then inc(t,i)
   else if n mod i=0 then inc(t,i+n div i);
   if t=n then exit(true)
   else exit(false);
   end;
   begin
   clrscr;
   write(‘Nhap n=’);readln(n);
   write(‘Cac so hoan hao tu 1->’,n,’: ‘);
   for i:=1 to n do
   if shh(i)=true then write(i,’ ‘);
   readln;
   end.

   Bình luận

2. program CT;

   uses crt;
   var n,i:rea;;
         t,i:longint;
   begin
   t:=1;
   for i:=2 to trunc(sqrt(n)) do
   if sqr(i)=n then inc(t,i)
   else if n mod i=0 then inc(t,i+n div i);
   if t=n then exit(true)
   else exit(false);
   readln;
   end.

   XIN HAY NHẤT

   Bình luận