Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Như Quỳnh

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 ạ :(

Như Quỳnh
11 tháng 5 2022 lúc 7:26

mn gips em ạ

 

Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
ngân diệp
Xem chi tiết
Đức Vượng
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Bùi Minh Dũng
Xem chi tiết
Võ Thái An Bình
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
Huyền Trang
Xem chi tiết
Quỳnh Như
Xem chi tiết