Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (30.27 KB, 1 trang )
<span class='text_page_counter'>(1)</span>program So_nguyen_to; uses crt; var a: array[0..50] of integer; i,n: integer; begin clrscr; writeln(' nhap so phan tu:'); readln(n); for i:=1 to n do begin Writeln(' nhap phan tu a[',i,']= '); readln(a[i]); end; for i:=1 to n do begin if (( a[i] > 7) and( (a[i] mod 2 =0) or(a[i] mod 3 =0) or(a[i] mod 5 =0) or(a[i] mod 7 =0) )) then Writeln('Phan tu a[',i,']= ',a[i],' Khong phai la so NT') else if (( a[i] > 3) and ((a[i] mod 2 =0) or(a[i] mod 3 =0))) then Writeln('Phan tu a[',i,']= ',a[i],' Khong phai la so NT') else Writeln('Phan tu a[',i,']= ',a[i],' la so NT'); end; readln; End. --------------------------------------------------------------------------------------------Chay thu: Nhap so phan tu: n=8 nhap phan tu a[1]= 1 nhap phan tu a[2]= 2 nhap phan tu a[3]= 3 nhap phan tu a[4]= 4 nhap phan tu a[5]= 5 nhap phan tu a[6]= 12 nhap phan tu a[7]= 7 nhap phan tu a[8]= 49 Phan tu a[1]= 1 la so NT Phan tu a[2]= 2 la so NT Phan tu a[3]= 3 la so NT Phan tu a[4]= 4 Khong phai la so NT Phan tu a[5]= 5 la so NT Phan tu a[6]= 12 Khong phai la so NT Phan tu a[7]= 7 la so NT Phan tu a[8]= 49 Khong phai la so NT.
<span class='text_page_counter'>(2)</span>