Giải giúp e bài này với ạ, e cảm ơn🥰 Cho dãy a gồm N phân tử nguyên nhập từ bàn phím.Viết chương trình a) kiểm tra trong dãy a có bao nhiêu phân tử là số nguyên dương b) kiểm tra trong dãy a có bao nhiêu phân tử là số nguyên tố

logaLu

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

ngocxuan1234

program baigiai;

uses crt;

var A:array[1..100] of integer;

n,i,dd,dnt:byte;

function ktnt(k:integer):boolean;

var l:integer;

begin

ktnt:=false;

if k<2 then exit;

for l:=2 to trunc(sqrt(k)) do

if k mod l=0 then exit;

ktnt:=true;

end;

BEGIN
clrscr;

write('Nhap so luong phan tu N: '); readln(n);

dd:=0; dnt:=0;

for i:=1 to n do

begin

write('A[',i,'] = '); readln(A[i]);

if A[i]>0 then dd:=dd+1;

if ktnt(A[i]) then dnt:=dnt+1;

end;

writeln('Trong day A co ',dd,' phan tu la so duong');

writeln('Trong day A co ',dnt,' phan tu la so nguyen to');

readln

end.

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

thanhcongchuahihi

uses crt;

var n,i,d1,d2:byte;

a:array[1..200] of integer;

function snt(x:integer):boolean;

var tam:integer;

begin

if x<2 then snt:=false

else

begin

snt:=true;

for tam:=2 to round(sqrt(x)) do

if x mod tam =0 then exit(false);

end;

BEGIN

clrscr;

write('Nhap n:'); readln(n);

d1:=0; d2:=0;

for i:=1 to n do

begin

write('Nhap a[',i,']:');

readln(a[i]);

if a[i]>0 then inc(d1);

if snt(a[i]) then inc(d2);

end;

writeln('Co ',d1,' so nguyen duong trong day.');

write('Co ',d2,' so nguyen to trong day.');

readln

END.

Chúc bạn học tốt!

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

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

Vẽ chibi....... hóng đứa nào đó :))

Cho tam giác đều ABC. Trên tia đối của tia BC lấy điểm D, trên tia đối của tia CB lấy điểm E sao cho BD=CE=BC. a, CMR: tam giác ADE là tam giác cân b, Tính góc DAE

giúp mik vs,mik sẽ vote 5 sao ngay,mik đg cần gấp lắm Cho ΔABC vuông tại A,phân giác AD.Tính AB,AC biết BD=3cm,DC=4cm

Làm giúp mik với mn "Mãi khuya, bà Hai mới chống gối đứng dậy.Bà lẳng lặng xuống bếp châm lửa ngồi tính tiền hàng.Vẫn những tiền cua, tiền bún,tiền đỗ, tiền kẹo... Vẫn cái giọng rì rầm, rì rầm thường ngày. -Này thầy nó ạ. Ông Hai nằm rũ ra ở trên giường không nói gì. -Thầy nó ngủ rồi à?-Gì? Ông lão nhẹ khúc khích.Tôi thấy người ta đồn...Ông lão gắt lên: -Biết rồi! Bà Hai nín bặt.Gian nhà lặng đi hiu hắt." Câu 1:Theo trình tự cốt truyện thì đoạn trích nằm ở tình huống nào? Ý nghĩa của tình huống này là gì?

Bài 8. Tính nhanh các tổng sau: a) ( 3567 – 214) – 3567; b) ( - 2017) – ( 28 – 2017); c) -( 269 – 357 ) + ( 269 – 357 )

Hai công nhân cùng làm một công việc trong 4 giờ 48phút thì xong. Nếu hai người cùng làm trong 4 giờ, rồi người thứ nhất nghỉ, người thứ hai làm tiếp trong 2 giờ nữa mới xong việc. Hỏi nếu làm một mình thì mỗi người làm trong bao lâu xong việc?

Các bạn làm giúp mình nhé .Mình sẽ cho 5 sao .

Cho một hình chữ nhật có chu vi là 28(cm) . Nếu tăng chiều dài lên 3cm 3cm , giảm chiều rộng 3cm 3cm thì diện tích giảm 15cm^2 15cm 2 . Diện tích ban đầu của hình chữ nhật là: cm^2 cm 2 .

Giúp mik với Mình đang cần gấp Cammon trước nha

Chứng minh BĐT: $x^2+y^2 ≥\dfrac{(x+y)^2}{2} ≥2xy$

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