AMBIENT-ADSENSE/lession_isads=0
Cũ nhất Mới nhât Thích nhiều
-
uses crt;
var n,j,i:integer;
a:array[1..100]og integer;
kt:boolean;
begin
readln[n];
for i:=1 to n do readln[a[i]];
for i:=1 to n do if a[i]>1 do
begin
kt:=true;
for j:=2 to a[i]-1 do if a[i] mod j=0 then
begin
kt:=false;
break;
end;
if kt=true then write[a[i];' '];
end;
readln
end.
-
-
-
program bai1; var a:array[1..100] of longint; i,n,max:longint; begin wrtie['N= '];readln[n]; for i:=1 to n do begin write['A[',i,']= ']; readln[a[i]]; end; max:=a[1]; for i:=1 to n do if a[i]>max then max:=a[i]; writeln['So lon nhat la ',max]; write['Vi tri la ']; for i:=1 to n do if a[i]=max then write[i,' ']; readln end.
-
VAR a:ARRAY[1..100] OF longint; n,d,dem,i,j,t:longint; BEGIN dem:=0; WRITELN['NHAP SO PHAN TU N:']; READ[N]; WRITELN['NHAP MANG:']; FOR i:=1 TO n DO BEGIN WRITE['a[',i,']='];READLN[a[i]];
END;
//---------sap---xep------ for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; write['day sau khi sap xep: ']; for i:=1 to n do write[a[i],' ']; writeln;
//--------tim-so-nguyen--to------
write['cac so nguyen to trrong day la: ']; for i:=1 to n do if a[i]>=2 then begin j:=2; while [jsqrt[a[i]] then write[a[i],' ']; end; writeln; //----------dem-so-nguyen-to----- FOR i:=1 TO n DO BEGIN d:=0; FOR j:=1 TO a[i] DO IF a[i] MOD j = 0 THEN d:=d+1; IF d=2 THEN dem:=dem+1; END; WRITE['SO NGUYEN TO CO TRONG MANG LA:',dem]; readln;
END.
program nguyento;
uses crt;
var i,n,b,c,d:longint; a: array[1..100] of longint;
begin
clrscr;
write['Nhap so n: ']; readln[n];
for i:=1 to n do
begin
write[i,'. ']; readln[a[i]];
end;
for i:=1 to n do
begin
for j:=1 to a[i] do if a[i] mod j=0 then d:=d+1;
if d=2 then write[a[i]:5];
d:=0;
end;
readln
end.
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Gửi câu trả lời Hủy
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Nhập vào dãy số và in ra các số nguyên tố trong dãy.
Các câu hỏi tương tự
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
1. Cho một dãy số gồm N phân tử, in ra màn hình các số nguyên tố có trong dãy
Các câu hỏi tương tự
Nhập vào một số nguyên dương n, và n số nguyên lần lượt là các phần tử trong dãy a. Hãy in lần lượt các số nguyên tố có trong dãy a ra màn hình, sau mỗi phần tử có đúng một khoảng trắng.
[Số nguyên tố là số nguyên dương có đúng 2 ước là 1 và chính nó. Số a được gọi là ước của b nếu b chia hết cho a]. Biết rằng dãy sẽ có ít nhất một số nguyên tố.
Ví dụ:
- Test mẫu 1:
Input Output 4
1 2 3 42 3
Với n = 4, a = [1, 2, 3, 4] thì kết quả mong muốn là: "2 3 ".
- Test mẫu 2:
Input Output 3
7 2 37 2 3
Với n = 3, a = [7, 2, 3] thì kết quả mong muốn là: "7 2 3 ".
Hướng dẫn bài tập.
Một trong nhữngcách kiểm tra số nguyên tố tốt nhất đó là:
Để kiểm tra một số n có phải là số nguyên tố hay không ta làm như sau:
- Nếu n < 2 thì n không là số nguyên tố.
- Nếu n = 2 hoặc n = 3 thì n là số nguyên tố.
- Nếu n ≥ 2:
- Nếu n không có ước trong khoảng 2 đến phần nguyên căn bậc 2 của n thì n là số nguyên tố, ngược lại n không là số nguyên tố.
Code mẫu:
Ngôn ngữ C++:
#include #include using namespace std; bool isPrime[int n]{ if [n < 2] return false; for [int i = 2; i > n; for [int i = 0; i < n; i++]{ cin >> a[i]; } for [int i = 0; i < n; i++]{ if [isPrime[a[i]]]{ cout debug để kiểm tra kết quả và fix lỗi trong quá trình giải. Sau đó, bạn có thể tham khảo source code mẫu để hoàn chỉnh bài tập.Để được hỗ trợ tốt nhất, bạn có thể đặt câu hỏi ở phần bình luận bên dưới bài viết hoặc ở mục Hỏi & Đáp.