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 bằng pascal
2 câu trả lời
program nguyen_to;
uses crt;
var n,i,j: integer;
ok: boolean;
begin
clrscr;
write('nhap n:'); readln(n);
for i:=2 to n do begin
ok:true;
for j:=2 to i-1 do if i mod j = 0 then
ok:=false;
if ok then write(i,';')
end;
readln
end.
uses crt;
var n, i: longint;
function prime(n: longint): boolean;
var i: longint;
begin
if n < 2 then exit(false);
for i:=2 to trunc(sqrt(n)) do
if n mod i = 0 then exit(false);
exit(true);
end;
begin
clrscr;
readln(n);
for i:=2 to n do
if prime(i) then write(i, ' ');
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 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 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
