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.Khai báo 3 biến n,i,j.N được nhâp từ bàn phím sử dụng T,F sử dụng điều kiện
1 câu trả lời
uses crt;
var n,i,j : integer;
function snt(x : integer) : boolean;
var i,d : integer;
begin d:=0;
for i:=1 to x do if x mod i = 0 then d:=d+1;
if d=2 then snt:=true else snt:=false;
end;
begin clrscr;
write('Nhap n :'); readln(n);
write('Cac so nguyen to nho hon n la :');
for i:=1 to n-1 do if snt(i) = true then write(i:4);
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
