Nhập một mảng A, gồm n phần tử nguyên dương (n<=250), biết chương trình đưa ra các số nguyên tố trong bảng A. Lưu ý: mảng A được lưu ở tệp Snt.inb các số nguyên tố trong mảng A được lưu ở tệp Snt.out Trong chương trình có viết chương trình con là hàm. Kiểm tra số nguyên tố boolean. Gợi ý: nếu là số nguyên tố trả về true/faste, chương trình sẽ tránh lặp for...do.../while...do... Cầu cao nhân chỉ dạy ???????????? Làm ơn!!!!
em chỉ mới học lớp 8 nên chưa biết lưu vào tệp nha anh/chị có thể tự thêm vào còn đây là code in kết quả ra màn hình nè:
program GiaiBai;
uses crt;
var i, n:integer;
A: array [1..250] of integer;
function Ktra (m:integer) : integer;
var t:boolean;
j:integer;
begin
t:=true;
for j:=2 to m-1 if m mod j=0 then t:=false;;
if t=true then write(m:4);
end;
begin
clrscr;
write(‘Nhap n ‘); readln(n);
while n>250 do begin
writeln(‘So vua nhap qua lon xin hay nhap lai ‘);
write(‘Nhap n ‘);readln(n);
end;
for i:=1 to n do begin
write(‘A[‘,i,’]=’); readln(A[i]); //Nht
end;
for i:=1 to n do Ktra(A[i]);
readln;
end.
(*Bai nay chi in ket qua ra man hinh*)
Xem hình