Tìm số nguyên tố trong khoảng từ 1 đến N với N là số tự nhiên nhập từ bàn phím. Trong các số nguyên tố đó in ra màn hình những số nào có tổng các chữ

0 bình luận về “Tìm số nguyên tố trong khoảng từ 1 đến N với N là số tự nhiên nhập từ bàn phím. Trong các số nguyên tố đó in ra màn hình những số nào có tổng các chữ”

1. uses crt;

   var i,n:longint;

   {————————-}

   function nt(x:longint):boolean;

   var h:longint;

   begin

   if x<2 then exit(false);

   for h:=2 to trunc(sqrt(x)) do if x mod h=0 then exit(false);

   exit(true);

   end;

   {————————-}

   function tcs(x:longint):longint;

   var s:longint;

   begin

   s:=0;

   while x<>0 do

     begin

      s:=s+x mod 10;

      x:=x div 10;

    end;

   tcs:=s;

   end;

   {———————-}

   begin

   clrscr;

   readln(n);

   for i:=1 to n do if (nt(i)) and (tcs(i) mod 2=0) then write(i,’ ‘);

   readln

   end.

   Bình luận