Cho mảng 1 chiều gồm N phần tử có kiểu dữ liệu là nguyên . Mảng vừa cho có bn phần tử là số nguyên tố

0 bình luận về “Cho mảng 1 chiều gồm N phần tử có kiểu dữ liệu là nguyên . Mảng vừa cho có bn phần tử là số nguyên tố”

1. program ngto;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,d:integer;

   function ktnt(k:integer):boolean;

   var l:integer;

        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;

        write(‘Nhap so luong phan tu N: ‘);    readln(n);

        d:=0;

        for i:=1 to n do

             begin

                  write(‘Phan tu thu ‘,i,’: ‘);    readln(A[i]);

                  if ktnt(A[i]) then d:=d+1;

             end;

        write(‘Mang tren co ‘,d,’ phan tu la so nguyen to’);

        readln;

   end.

   Bình luận

2. đây bạn

   

   Bình luận