Tin học

[Nguyễn Duy Mạnh]

[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.

Nhập dãy n số nguyên dương .Tìm và xóa các phần tử là số nguyên tố .Ghi ra dãy để kiểm tra

 

[Nguyễn Thánh Tiền]

Sử dụng thuật toán chia từ 2 đến căn x nếu không chia hết cho số nào thì số đó là nguyên tố

 

[Ngô Trọng Nhân]

uses crt;
var n,i,j:integer;
s,kt:array[1..10000] of integer;
begin
clrscr;
write('so so hang: ');readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,' : ');readln(s);
end;
writeln('sau khi kiem tra: ');
for i:=1 to n do
begin
kt:=0;
for j:=2 to s-1 do
if s mod j=0 then kt:=kt+1;
if kt<>0 then write(s,' ');
end;
readln;
end.