Viết chương trình in ra các số nguyên tố nhỏ hơn n với yêu cầu dùng hàm để kiểm tra một số có phải là số nguyên tố hay không.
60 điểm
NguyenChiHieu
Viết chương trình in ra các số nguyên tố nhỏ hơn n với yêu cầu dùng hàm để kiểm tra một số có phải là số nguyên tố hay không.
Trả lời
Tổng hợp câu trả lời (1)
NguyenHieu
12:11:10 24-Nov-2021
Program In_so_nguyen_to;
uses crt;
var n, i: integer;
{------Ham kiem tra-------}
Function kiem_tra(n:integer):boolean;
var i: integer;
begin
kiem_tra:=true;
for i:=2 to n-1 do if (n mod i) = 0 then kiem_tra:=false;
end;
{------CTC----------------}
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=2 to n do if kiem_tra(i) then write(i:3, ', ');
readln;
end.
Câu hỏi hay nhất cùng chủ đề
- Trong vòng lặp For – do dạng tiến. Giá trị của biến đếm A. Tự động giảm đi 1 B. Tự động điều chỉnh C. Chỉ tăng khi có câu lệnh thay đổi giá trị D. Được giữ nguyên
- Viết chương trình tìm tất cả các số có 3 chữ số sao cho tổng tất cả các chữ số bằng tích của chúng. VD: a+b+c = a*b*c
- Biểu thức nào sau kiểm tra "n là một số nguyên dương chẵn"? A. (n>0) and (n mod 2 = 0) B. (n>0) and (n div 2 = 0) C. (n>0) and (n mod 2 <> 0) D. (n>0) and (n mod 2 <> 0)
- Cho x là biến thực đã được gán giá trị 12.41235. Để thực hiện lên màn hình nội dung “x=12.41” cần chọn câu lệnh nào sau đây ? A. Writeln(x); B. Writeln(x:5); C. Writeln(x:5:2); D. Writeln(‘x=’ ,x:5:2);
- Tạo tệp nga pas như thế nào
CÔNG TY TNHH TOP EDU
Số giấy chứng nhận đăng kí kinh doanh: 0109850622, cấp ngày 09/11/2021, nơi cấp Sở Kế Hoạch và Đầu tư Thành phố Hà Nội
Hãy giúp mọi người biết câu trả lời này thế nào?