Viết chương trình đưa ra màn hình tất cả các số nguyên tố của dãy số a gồm n phần tử được nhập bất kì từ bàn phím ( Dùng cách cơ bản chương trình lớp 8)
Viết chương trình đưa ra màn hình tất cả các số nguyên tố của dãy số a gồm n phần tử được nhập bất kì từ bàn phím ( Dùng cách cơ bản chương trình lớp 8)
program SNT;
uses crt;
var A: array [1..500] of integer;
n,i,d,j: integer;
Begin
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Cac so nguyen to trong day: ‘);
for i:=1 to n do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if d=2 then write(i,’ ‘);
end;
readln
End.
program ntg;
uses crt;
var A: integer;
n,i,d,j: integer;
Begin
write(‘Nhap n’);
readln(n);
for i:=1 to n do
begin write(‘A[‘,i,’]=’); readln(A[i]); end;
write(‘Cac so nguyen to trong day: ‘);
for i:=1 to n do
begin
d:=0;
for j:=1 to i do
if (i mod j)=0 then d:=d+1;
if d=2 then write(‘Ket qua’,i);
end;
readln;
End.