Tin học 11

[adolf99]

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

Lập chương trình in ra các số nguyên tố nhỏ hơn 1 số M cho trước ?

 

[Nguyễn Thánh Tiền]

đưa số 2 vào dãy
xét số tiếp theo có:" không chia hết cho tất cả các số trong dãy" hay không .
nếu có thì đưa nó vào dãy

 

[pro3182001]

uses crt;
var a:array[1..100] of integer;
i,m,k:integer;
function demuoc (n:word) : boolean;
var i: longint;
dem :integer;
begin demuoc:=true;
for i:=2 to n-1 do
if n mod i=0 then demuoc:=false;
end;
begin clrscr;
write('Nhap so m=');read(m); k:=1;
for i:=2 to m-1 do if demuoc(i) then begin
a[k]:=i;
k:=k+1;
end;
for i:=1 to k-1 do write(a); delay(1000)
end.