Lập trình pascal: Nhập vào số nguyên N. Viết chương trình in ra màn hình các số hạnh phúc trong khoảng từ 1 đến N

0 bình luận về “Lập trình pascal: Nhập vào số nguyên N. Viết chương trình in ra màn hình các số hạnh phúc trong khoảng từ 1 đến N”

1. uses crt;
   var n,i:longint;
   {—Ham-hoan-hao—}
   function kt(a:longint):boolean;
   var i,s:longint;
   begin
      s:=0;
      for i:=1 to a div 2 do 
         if a mod i=0 then 
            inc(s,i);
         if s=a then 
            kt:=true 
         else 
            kt:=false;
   end;
   {—Chuong-trinh-chinh—}
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      write(‘Cac so hoan hao tu 1 den ‘,n,’: ‘);
      for i:=1 to n do 
         if kt(i) then 
            write(i,’ ‘); writeln;
      readln
   end.

   Bình luận