cho dãy số n nhập từ bàn phím , tìm số nguyên tố trong dãy

0 bình luận về “cho dãy số n nhập từ bàn phím , tìm số nguyên tố trong dãy”

1. uses crt;
   var n,i,j : integer;
   a: array[1..100] of longint;
   function kt(x : integer) : boolean;
   var i,d : integer;
   begin
   d:=0;
   for i:=1 to x do if x mod i = 0 then d:=d+1;
   if d=2 then kt:=true else kt:=false;
   end;
   begin
   write(‘Nhap n :’); readln(n);
   for i:=1 to n do begin
    write(‘Nhap phan tu ‘,i,’ la :’);
    readln(a[i]); end;
    writeln(‘Cac so nguyen to trong day la :’);
   for i:=1 to n do if kt(a[i]) then write(a[i]:3);
   readln
   end.

   Bình luận