+Viết các nguyên tố nhỏ hơn 20
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) Tập các số nguyên tố nhỏ hơn 30 là: 2 , 3 , 5 , 7 , 11 , 13 , 17 , 19 , 23 , 29
b) Tập các ước của 30 là: 1 , 2 , 3 , 5 , 6 , 10 , 15 , 30
c) Tập các số cần tìm là: 24 , 36 , 48 , 60 , 72 , 84 , 96
a) Viết tập hợp các số nguyên tố nhỏ hơn 30.
{2;3;5;7;11;13;17;19;23;29}
b) Viết tập hợp các ước của 30.
{1;2;3;5;6;10;15;30}
c) Viết tập hợp các bội lớn hơn 20 và nhỏ hơn 100 của 12
{24;36;48;60;72;84;96}
HỌC TỐT
Cách 1 : A = { x là số nguyên tố | x < 20 }
Cách 2: Liệt kê. A = { 2; 3; 5; 7; 11; 13; 17; 19 }
Có bao nhiêu số nguyên tố nhỏ hơn 20
Có 8 số nguyên tố nhỏ hơn 20
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
Nhỏ hơn 200 nha mn ghi mà nó cứ 20 hoài