Viết chương trình pascal nhập 1 số n cụ thể từ bàn phím và in ra những số nguyên tố từ 1 đến n
(Gợi ý: nhập số n từ bàn phím và dùng hàm ngto(…) )
Viết chương trình pascal nhập 1 số n cụ thể từ bàn phím và in ra những số nguyên tố từ 1 đến n
(Gợi ý: nhập số n từ bàn phím và dùng hàm ngto(…) )
var n:int64;
function ngto(h:int64):boolean;
var d,i:integer;
begin
d:=0;
for i:=1 to h do
begin
if h mod i=0 then inc(d);
end;
if d=2 then ngto:=true
else ngto:=false;
end;
var i:longint;
begin
read(n);
for i := 1 to n do
begin
if ngto(i) then write(i,’ ‘);
end;
end.
P/s: Gửi bạn, thuật toán dùng kĩ năng function thôi nha chứ không có hàm ngto đâu 😕
Chúc bạn học tốt @danhle
program in_nguyen_to;
uses crt;
var n,i:integer;
{—Ham-nguyen-to—}
function ktnt(k:integer):boolean;
var e:integer;
begin
ktnt:=false;
if k<2 then exit;
for e:=2 to trunc(sqrt(k)) do
if k mod e=0 then exit;
ktnt:=true;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
if ktnt(i) then write(i,’ ‘);
readln;
end.