uses crt; var i,n: integer; function nt(n: integer): boolean; var i,d: integer; begin d:=0; for i:=1 to n do if n mod i=0 then inc(d); if d=2 then nt:=true else nt:=false; end; begin clrscr; write ('nhap n: '); readln (n); write ('cac so nguyen to be hon hoac bang ',n,' la: '); for i:=1 to n do if nt(i)=true then write (i:3); readln; end.
uses crt; var i,n:longint; function nt(a:longint):boolean; var i:longint; begin i:=2; while(a>1)and(a mod i<>0)do inc(i); nt:=i=a; end; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do if nt(i) then writeln(i); readln end.
