viết chương trình in ra màn hình các số nguyên tố từ 1 đến 1000 pascal

Gửi bạn:

uses crt;

var n, i, j, dem: longint; 

A:array[1..1000] of longint;

begin

clrscr;

Writeln('Nhap N: '); readln(n);

for i:=1 to n do

begin

writeln('Nhap phan tu thu ',i,': ');

readln(A[i]);

end;

Writeln('Cac so nguyen to co trong mang la: ');

for i:=1 to n do

begin

dem:=0;

for j:=2 to A[i]/2 do

if A[i] mod j=0 then dem:=dem+1;

if dem=0 then write(A[i],'; ');

end;

end.

code pascal:

program bt;

uses crt;

var i:longint;

function snt(x:longint):boolean;

var j:longint;

begin

snt:=true;

if x < 2 then snt:=false;

if x = 2 then snt:=true;

if x > 2 then

for j:=2 to trunc(sqrt(x)) do

if x mod j =0 then snt:=false;

end;

begin

for i:=1 to 1000 do

if snt(i) then

writeln(i);

readln

end.