Viết phương trình nhập vào 1 dãy gồm n số nguyên (n<= 250 a[i]<= 300) a. In ra màn hình dãy vừa nhập b. Đếm số lượng số nguyên tố trong dãy Mọi người ơi giúp mk vs :3

vothimailan47

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 12 xem

1 trả lời

Thích Trả lời

Trangnguyen1912

program bai_giai;
uses crt;
var A:array[1..250] of integer;
n,i,d:integer;
function ktnt(k:integer):boolean;
var r:integer;
begin
ktnt:=false;
if k<2 then exit;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit
exit(true);
end;
BEGIN
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
d:=0;
for i:=1 to n do
begin
write(A[i],' ');
if ktnt(A[i]) then d:=d+1;
end;
writeln;
writeln('Co ',d,' so nguyen to');
readln;
end.

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

hoacolau_9186

uses crt;
var n,i,d:byte; a:array[1..250]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('Nhap n: ');readln(n);
d:=0;
for i:=1 to n Do
begin
write('a[',i,']=');readln(a[i]);
if nt(a[i]) then inc(d);
end;
write('Day vua nhap: ');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('Co ',d,' so nguyen to trong day');
readln;
end.

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

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

Chỉ giúp em với ạ Em đang cần gấp ạ

bỏ dấu ngoặc cho mình sao cho kết quả không thay đổi: a, (2x^3+x^4)-(-x^4+4) b, (6+2-3)-(-3+8-2)

Giúp với ạ( T or F) 1 The way we eat and how we behave when having meals reveal a lot about our personality 2 If someone look carefully at the menu and asks a waiter certain questions before ordring ,they are attentive to details 3 A pearson carefully looks through the menu always cares about getting to the end result 4 If a pearson doesn't even look at the menu and orders right away,they're usually quite stubborn 5 Someone ordering immediately without looking at the menu is good at adapting to new environments

Nêu ảnh hưởng của các dòng biển đến khí hậu Nam Mĩ có dẫn chứng

Viết topic về kỳ quan trên thế giới ngắn gọn

Giải thích mục tiêu học tập là gì? (Mng ghi thành lời văn giúp mình nhé )

mối quan hệ khác loài để làm tăng năng suất vật nuôi, cây trồng.

Nhận biết các dung dịch mất nhãn sau 1 Na2So4 , NaF, Na2S, HBr 2.Al2(So4)3 ,NaCl,KNO3,K2S,Na2SO3

Chọn câu trả lời đúng nhất nhé:))😍😍

Cm đa thức M(x)= x^2 -2x +0,5 không có nghiệm âm Cm đa thức P(x) = x^2012 +x^2 +1 vô nghiệm

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