Viết chương trình con tìm số nguyên tố VD: snt.inp 10 snt.out 2,3,5,7
2 câu trả lời
program songuyento;
uses crt;
var n,i:integer;
function snt(k:integer):boolean;
var l:integer;
begin
snt:=false;
if k<2 then exit;
for l:=2 to trunc(sqrt(k)) do
if k mod l=0 then exit;
snt:=true;
end;
BEGIN
clrscr;
write('Nhap n: '); readln(n);
for i:=2 to n do
if snt(i) then write(i,' ');
readln
end.
Function ngto(N:integer):Boolean;
Var d,i:integer;
Begin d:=0;
For i:=1 to n do If n mod i=0 then inc(d);
if d=2 then ngto:=true else ngto:=false;
End;
