Sử dụng NNLT PASCAL để viết chương trình thực hiện một số công việc với số 19: 1. Nhập vào số nguyên dương N (0<n<1000), khởi tạo ngẫu nhiên mảng gồm N số nguyên dương Ai (0<Ai<2019) (dùng hàm random để khởi tạo) 2. Đếm xem trong dãy cí bao nhiêu số 19? 3. In ra màn h

lyphuongthao3

2 năm trước

Sử dụng NNLT PASCAL để viết chương trình thực hiện một số công việc với số 19: 1. Nhập vào số nguyên dương N (0<n<1000), khởi tạo ngẫu nhiên mảng gồm N số nguyên dương Ai (0<Ai<2019) (dùng hàm random để khởi tạo) 2. Đếm xem trong dãy cí bao nhiêu số 19? 3. In ra màn hình các số là bội của 19? 4. Số 19 là một số nguyên tố, hãy in ra màn hình các số cùng loại với số 19?

Loga Sinh Học lớp 12

0 lượt thích 44 xem

1 trả lời

Thích Trả lời

2440592439589934

USES CRT;

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

s,n,i,dem: integer;

Const Max = 500;

Function NT(n:integer):boolean;

Var i:integer;

Begin

If (n=0) Or (n=1) then NT:=False

Else Begin

i:=2;

While (n mod i <> 0) and (i<Sqrt(n)) do i:=i+1;

If i>Sqrt(n) then NT:=True

Else Nt:=False;

End;

begin

randomize;

clrscr;

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

for i:=1 to n do a[i]:=random(2020);

for i:=1 to n do write(a[i],' ');

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

write('Trong day co: ',dem,' so 19');

writeln;

write('Cac so la boi cua 19: ');

for i:=1 to n do if a[i] mod 19=0 then write(a[i],' ');

writeln;

write('Cac so nguyen to trong mang: ');

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

pink010206

program hotrotinhoc;

var i,n,d: integer;

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

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while (j<=trunc(sqrt(x))) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

readln(n);

d:=0;

for I:=1 to n do

begin

randomize;

a[i]:=random(2019);

end;

for i:=1 to n do

if a[i]=19 then inc(d);

writeln('Trong day co ',d,' so 19');

write('Cac so la boi cua 19 :');

for i:=1 to n do if a[i] mod 19=0 then write(a[i],' ');

writeln;

write('Cac so cung loai voi 19 la :');

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

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

với giá trị nào của m thì pt (m+3)x+4=0 có nghiệm là x=2 A m=2 B.m=-2 C .m=5 D.m=-5 giải phương trình 2x(8x-10)^2(4x-1)=9

1. A lot of people use cell phone → Cell phones…………. 2. Miss. Diep hasn’t taught us since the last semester.→ We………………. 3. Mr. Vinh teaches our English lessons. → Our English lessons ........................................... 4. A student is doing that experiment. → That experiment .................................................... 5. Our teachers give us a free period this Saturday to prepare the festival. → We ...................................................... 6. Did you buy this dictionary two weeks ago? → Was ............................................................ 7. We should clean our teeth twice a day. → Our teeth………………….. 8. Alan’s knowledge about science and technology doesn’t impress me. → I .................................................. 9. Her father drive all of us to school every day. → All of us ................................................... 10. They are going to build a new school here next year. → A new school .............................................

y=4sin^2x-4sinx+3 Tìm GTLN GTNN ạ. Giúp em với

Gia3i thích vì sao $(-1) ³ = -1$ ( câu này không cần làm vì mình biết làm) Có còn số nguyên nào khác mà lập phương của nó cũng bằng chính nó( đây là câu hỏi mà mình muốn hỏi)

bố cục và yêu cầu từng phần của bài văn chứng minh bố cục và yêu cầu từng phần của bài văn giải thích thế nào là nghị luận giải thích giúp mk nha

Giúp em hai câu có - ở đầu Hộ em thank

Give the correct form of the words 31. There are many______________ values of different communities in these festivals. (CULTURE) 32. New Year’s Eve is one of the largest global ______________ because it marks the last day of the year. (CELEBRATE) 33. Another ______________ season is coming very soon. I’m so excited. (FESTIVAL) 34. ______________ in a lion dance outfit show off their moves at the Rio Carnival (PERFORM) 35. Christmas dinner is a meal ______________ eaten at Christmas. (TRADITION) giúp mình với

Đốt cháy một hỗn hợp gồm Fe và Mg , trong đó Mg có khối lượng là 0,48g , cần dùng hết 672ml O 2 (đktc) a/ Tính khối lượng hỗn hợp ban đầu ( 2,16g ) b/ Tính thành phần % theo khối lượng mỗi kim loại trong hỗn hợp Gợi ý : % Mg = = 22,22% %Fe = 100% - 22,22% = 77,78%

16)She ______ such a big fire before. Chọn đáp án: A. has never seen B. have never seen C. didn't see D. seen 17)We ____ them since 2010. Chọn đáp án: A. has met B. had met C. haven't met D. met 18)He has learned English ________ 4 years. Chọn đáp án: A. since B. until C. in D. for 19)He _________ here for six months. Chọn đáp án: A. have been B. has been being C. has been being D. has been làm ơn giúp

Câu 3: Đọc và xác định luận điểm chính trong đoạn văn dưới đây: “Hạnh phúc” có muôn hình vạn trạng mà ta chẳng thể nào lí giải nổi. Thế nhưng, dù ở trạng thái nào, hoàn cảnh nào đi chăng nữa thì hạnh phúc cũng có vai trò và ý nghĩa vô cùng lớn đối với mỗi con người. Hạnh phúc khi có được những thứu mình mong muốn, sẽ giúp cho tâm trạng bạn phấn chấn hơn, tươi vui hơn. Nó làm cân bằng lại cảm xúc bên trong con người bạn. Nó tạm xua đi những buồn đau, bất hạnh mà bạn phải trải qua trong cuộc sống. Hạnh phúc cũng giúp bạn có thêm động lực để phấn đấu cho những dự định lớn hơn ở phía trước. Nó như một khảng nghỉ dừng chân để bạn lấy lại năng lượng, tạo đà cho những mục tiêu tiếp theo. Hạnh phúc khi đem tình yêu thương của mình cho những hoàn cảnh khó khăn, bạn sẽ cảm thấy tâm hồn mình được thảnh thơi, bình an. Không những thế, niềm hạnh phúc của bạn sẽ được mọi người nhân rộng hơn nữa. hạnh phúc của bạn đôi khi cũng góp phần xây dựng thêm những điều tốt đẹp cho xã hội…

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