Một số khái niệm cơ bản của tin học

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hiền Phạm

1,cho dãy số nguyên a1....an , phân tử k

a,đếm xem có bao nhiêu pt giống k

b,đếm xem có bao nhiêu phân tử chia hết cho k

2, cho dãy số nguyên a1....an,

a,đếm xem có bao số chẵn , số lẽ

b,có bao nhiêu số nguyên tố

Minh Lệ
23 tháng 9 2019 lúc 12:43

Mình chỉ viết một đoạn chương trình xong bạn đưa vào chương trình chính nhé , nếu có gì thắc mắc thì nhắn tin với mình.

1.

a) d:=0;

For i:=1 to n do if a[i]=k then inc(d);

b) dem:=0;

For i:=1 to n do if a[i] mod k=0 then inc(dem);

2.

a) dem:=0; d:=0;

For i:=1 to n do

begin

if a[i] mod 2=0 then inc(d);

if a[i] mod 2<>0 then inc(dem);

end;

b);

function nt(x: integer): boolean;

var i: integer;

begin

nt:=false;

if x<2 then exit;

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

if x mod i = 0 then exit;

nt:=true;

end;

// Thân chương trình

d:=0;

for i:=1 to n do if nt(a[i]) then inc(d);


Các câu hỏi tương tự
Huỳnh Lê Thảo Nguyênn
Xem chi tiết
Hiền Phạm
Xem chi tiết
Hân Bùi
Xem chi tiết
gấu subi
Xem chi tiết
Bình Minh
Xem chi tiết
Lê Trung Tiến
Xem chi tiết
Hiii
Xem chi tiết
Nga Nguyễn
Xem chi tiết
Võ Thị Lan Anh
Xem chi tiết