Question

Dùng ngôn ngữ Pascal để in ra tập hợp các số nguyên tố bé hơn biến a(a nguyên dương)

Answer 1

var i,a:integer;
function ktnt(k:integer):boolean;
var i,d:integer;
begin
d:=0;
for i:=1 to k do
if k mod i=0 then d:=d+1;
if d=2 then ktnt:=true
else ktnt:=false;
end;
begin
write('a=');readln(a);
for i:=1 to a-1 do
if ktnt(i) then write(i,' ');
readln;
end.

Answer 2

có nghĩa là in các số nguyên tố từ 1 đến a ak

Answer 3

đúng thì tích nha