Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
program oken; uses crt; var n,i,j,dem: longint; begin clrscr; write('Nhap n: '); readln(n); write('Cac so nguyen to tu 1 -> ',n,': '); for i:=1 to n do begin dem:=0; for j:=2 to (i div 2) do if i mod j=0 then dem:=dem+1; if dem=0 then write(i,' '); end; readln; end.
program songuyento; uses crt; var n,i : integer; function snt(x : integer) : boolean; var d,i : integer; begin d:=0; for i:=1 to x do if x mod i = 0 then d:=d+1; if d=2 then snt:=true else snt:=false; end; begin clrscr; write('Nhap so n :'); readln(n); write('Cac so nguyen to tu 1 den ',n,' la :'); for i:=1 to n do if snt(i) = true then write(i:3); readln end.
