Viết chương trình nhập một số nguyên n và in ra màn hình các số hoàn hảo nhỏ hơn n. Giúp mik với ạ! Mai mik kt rồi

0 bình luận về “Viết chương trình nhập một số nguyên n và in ra màn hình các số hoàn hảo nhỏ hơn n. Giúp mik với ạ! Mai mik kt rồi”

1. var n,i,s:integer;

   begin

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

   for i:=1 to n-1 do if n mod i=0 then s:=s+i;

   if n=s then writeln(‘Day la so hoan hao’) else writeln(‘Day khong phai la so hoan hao’);

   readln

   end.

   Bình luận

2. uses crt;
   var n,i:longint;
   function hh(a:longint):boolean;
   var i,s:longint;
   begin
      hh:=true; s:=0;
      for i:=1 to a div 2 do 
         if a mod i=0 then inc(s,i);
         if s<>a then hh:=false;
   end;
   begin
   clrscr;
      write(‘Nhap n: ‘); readln(n);
      writeln(‘Cac so hoan hao be hon ‘,n,’: ‘);
      for i:=1 to n-1 do 
         if hh(i) then write(i,’ ‘); writeln;
   readln
   end.

   Bình luận