Tin học In ra các số nguyên tố

[SamNguyenxnnh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

VD1:
NHAP.INP
3
1 2 3

XUAT.OUT
2 3

VD2:
NHAP.INP
3
4 6 8

XUAT.OUT
KHONG CO

 

[Trâm Nguyễn Thị Ngọc]

VD1:
NHAP.INP
3
1 2 3

XUAT.OUT
2 3

VD2:
NHAP.INP
3
4 6 8

XUAT.OUT
KHONG CO

Var
  a:array[1..100] of integer;
  i,n,j,d:integer;kt:boolean;
Begin
  Readln(n);
  For i:=1 to n do readln(a[i]);
  d:=0;
  For i:=1 to n do
     If a[i]>1 then
     Begin
         Kt:=true;
         For j:=2 to a[i]-1 do
               if a[i] mod j =0 then begin kt:=false;breadk;end;
         If kt=true then begin write(a[i],'  ');d:=d+1;end;
     end;
   If d=0 then write('KHONG CO');
readln
End.