NQ

cho một dãy số a1,a2,...an các số nguyên gồm n phần tử (2<n10 mũ 5;)-3200,ai<3200) yêu cầu: 
viết chương trình liệt kê các số nguyên tố có dãy số vừa nhập mn giúp em ạ :(

KL
11 tháng 5 2022 lúc 11:08

Em ghi lại cho đúng cái đề nhé

Bình luận (0)
NT
11 tháng 5 2022 lúc 13:13

uses crt;

var a:array[1..10000]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 (0)

Các câu hỏi tương tự
HC
Xem chi tiết
TK
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
TP
Xem chi tiết
BV
Xem chi tiết
LH
Xem chi tiết
H24
Xem chi tiết