H24

Nhập từ bàn phím dãy n số nguyên bất kỳ. Hãy liệt kê các số là nguyên tố có mặt trong dãy?

NT
4 tháng 5 2024 lúc 8:52

uses crt;

var a:array[1..100]of integer;

i,n,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(A[i]:4);

end;

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
TP
Xem chi tiết
SP
Xem chi tiết
TP
Xem chi tiết
TP
Xem chi tiết
TP
Xem chi tiết
TP
Xem chi tiết
HC
Xem chi tiết
TP
Xem chi tiết
TP
Xem chi tiết
TP
Xem chi tiết