Viết chương trình nhập vào mảng A gồm n phần tử và kiểm tra trong các phần tử , phần tử nào là số nguyên tố, Dufng Pascal nhe

hoangthithuyny

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

haxuansy020878

uses crt;
var i,n,dem:longint; a:array[1..1000000]of 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('N=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if nt(a[i]) then inc(dem);
end;
if dem=0 then writeln('Khong co phan tu la so nguyen to trong mang.') else
writeln('Cac so nguyen to: ');
for i:=1 to n do if nt(a[i]) then write(a[i],' ');
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

650632585759944

uses crt;
var a : array[1..100] of integer;
i,n : integer;
function snt(x : integer) : boolean;
var i,d : 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 phan tu :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
writeln('Cac phan tu la so nguyen to trong mang :');
for i:=1 to n do if snt(a[i])=true then write(a[i]:3);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giúp mình với: Bt: Có 5 học sinh giỏi, 4 học sinh khá, 6 học sinh trung bình. Chọn lần lượt mỗi lần ra 2 học sinh. Tính xác xuất để chọn lần thứ 2 được 2 học sinh giỏi.

Giúp mình với ạ! Mình cần gấp! cảm ơn nhiều!

Giúp em với, cần đáp án chính xác, ko cần nhất thiết nhanh đâu ạ, mong đc mng giúp 🥺🥺🥺

Giúp Mk để Mk so sánh nhanh nhá😊

Tìm nghiệm của phương trình |cosx|-|sinx|-cos2x. căn(1+sin2x)=0 điều kiện 2004<x<2005

xem ảnh có điều bất ngờ :))))))))))))))))))))))

Để hoàn thành một công việc được giao tổ 1 làm trong 15 giờ khi tổ 1 làm được 10 giờ thì người ta điều thêm tổ 2 vào làm cùng thì tổ hai đẫ hoàn thành công việc còn lại trong 2h 20 phút .hỏi nếu hai tổ cùng làm từ đầu thì bao lâu xg công vc

Tìm giá trị lớn nhất B=3+2|X+1| phần 1+|X+1|

Một đội công nhân phải sửa toàn bộ quãng đường AB trong ba ngày. Ngày đầu sửa được 20% quãng đường. Ngày thứ hai sửa được 2/3 quãng đường. Ngày thứ ba sửa được 84m còn lại. a. Tính chiều dài quãng đường AB b. Tính chiều dài quãng đường AB sửa được trong ngày đầu, trong ngày thứ hai

thực hiện phép tính a, $\sqrt[]{3,5+\sqrt[]{6}}$ - $\sqrt[]{3,5-\sqrt[]{6}}$ + $\sqrt[]{6}$ b, $\sqrt[]{x+2\sqrt[]{x-1} }$ - $\sqrt[]{x-2\sqrt[]{x-1} }$ với 1$\leq$ x$\leq$ 2

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến