Viết chương trình pascal đếm từ 1 đến 100 xem có bao nhiêu số nguyên tố và tính tổng của chúng.

0 bình luận về “Viết chương trình pascal đếm từ 1 đến 100 xem có bao nhiêu số nguyên tố và tính tổng của chúng.”

1. đây bạn

   

   Bình luận

2. program tongnguyeto;

   uses crt;

   var n,i:byte;

          T:integer;

   function ktnt(k:byte;):boolean;

   var l:byte;

   begin

        ktnt:=false;

        if k<2 then exit;

        for l:=2 to trunc(sqrt(k)) do

                if k mod l=0 then exit;

        ktnt:=true;

   end;

   BEGIN

        clrscr;

        T:=0;

         for i:=1 to 100 do

               if ktnt(i) then T:=T+i;

         write(‘Tong 100 so tu nhien dau tien la: ‘,t);

         readln;

   end.

   Bình luận