viết chương trình in ra tât cả các số nguyên tố bé hơn hoặc bằng n chương trình con
2 câu trả lời
Mình sẽ dùng chương trình con để tìm số nguyên tố. Kiểm tra xem từ 2 đến n - 1 nếu có ước thì n ko là số nguyên tố.
Program Vidu;
var i,n:Integer;
Function snt(s: Integer) : boolean;
var i :integer;
begin
snt := false;
If s = 2 then snt := true
else
for i := 2 to s - 1 do
if s mod i =0 then break
else snt := true;
end;
BEGIN
Write('Nhap n: '); Readln(n);
For i := 2 to n do if snt(i) then Write(i,' ');
Readln;
END.
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
