Hãy viết chương trình pascal tính tổng các số nguyên tố không vượt quá n(Các số nguyên tố từ 1->n). Mình cảm ơn các bạn

0 thoughts on “Hãy viết chương trình pascal tính tổng các số nguyên tố không vượt quá n(Các số nguyên tố từ 1->n). Mình cảm ơn các bạn”

1. uses crt;

   var i,n:longint;

   {——————————-}

   function nt(x:longint):boolean;
   var h:longint;
   begin
      for h:=2 to trunc(sqrt(x)) do if (x mod h=0) then exit(false);
      exit(true);
    end;
   {———————————-}

   begin

   clrscr;

   readln(n)l;

   for i:=1 to n do if (nt(i)) then write(i,’ ‘);

   readln

   end.

   Reply

2. Để tìm câu trả lời chính xác các em hãy tham khảo tóm tắt chương trình toán lớp 8 các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

   Reply