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

Question

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

in progress 0
Latifah 5 years 2020-10-16T16:02:31+00:00 2 Answers 224 views 0

Answers ( )

  1. Dulcie
    0
    2020-10-16T16:04:31+00:00
    Reply

    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.

  2. hongcuc2
    0
    2020-10-16T16:04:36+00:00
    Reply

    Để 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é!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )