cho dãy số 1,2,3-.100 viết chương trình kiểm tra có bn số nguyên tố?(viết bằng pascal)

0 bình luận về “cho dãy số 1,2,3-.100 viết chương trình kiểm tra có bn số nguyên tố?(viết bằng pascal)”

1. uses crt;
   function snt(n: integer): boolean;
   var i: integer;
   begin
     If (n=0) or (n=1) or (n=2) or (n=3) then
            snt:=false;
           if n>=4 then
           Begin
            i:=1;
            Repeat
             i:=i+1;
            Until (n mod i=0) or (i*i>n);
            If i*i>n then
             begin
              snt:=true;
             end
            Else
             snt:=false;
           End;
   end;
   var k,d: integer;
   begin
    clrscr;
     for k:=1 to 100 do
      if snt(k)=true then d:=d+1;
     writeln (‘co ‘,d,’ so nguyen to trong day tu 1 den 100′);
    readln;
   end.

   mình dùng phương pháp tạo hàm nên bạn tham khảo nhé !!!

   ꧁༺cao thủ paѕcal✔ツ

   Bình luận