Admin
Danh vọng : 64 Được thank : 7
Ngày Tham gia : 19/04/2013
Tuổi : 26
Đến từ : Quảng trị
Thú Cưng :
Code:
var i,j,n:Integer;
A:array[1..50] of Integer;
begin
write['nhap n:'];
readln[n];
for i:=1 to n do
begin
write['nhap a[',i,'] '];
readln[a[i]];
end;
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc[j];
until [a[i] mod j=0];
if j>[a[i] div 2] then inc[d];
j:=1;
end;
write['Co ',d,' so nguyen to trog day'];
readln;
end.
LikeDislike
hangcincinThành viên mới
Danh vọng : 2 Được thank : 0
Ngày Tham gia : 30/12/2014
Tuổi : 22
Đến từ : Đắk Lắk
Thú Cưng :
inc là cái gì vậy?
LikeDislike
Viết chương trình pascal sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình các số nguyên tố?
Viết chương trình pascal sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình các số nguyên tố [lớp 8]
Theo dõi Vi phạm
Tin học 8 Bài 9Trắc nghiệm Tin học 8 Bài 9Giải bài tập Tin học 8 Bài 9
ADSENSE
Trả lời [1]
bn thử xem đc ko nha [mk cx chưa thử nx]
Cách1:
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write['Nhap N: ']; readln[n];
for i:=1 to n do
begin
write['Nhap phan tu thu ',i,': '];
readln[A[i]];
end;
Write['Cac so nguyen to co trong mang la: '];
for i:=1 to n do
begin
dem:=0;
for j:=2 to A[i]/2 do
if A[i] mod j=0 then dem:=dem+1;
if dem=0 then write[A[i],'; '];
end;
end.
Cách2:
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write['Nhap N: ']; readln[n];
for i:=1 to n do
begin
write['Nhap phan tu thu ',i,': '];
readln[A[i]];
end;
Write['Cac so nguyen to co trong mang la: '];
for i:=1 to n do
begin
dem:=0;
for j:=1 to A[i] do
if A[i] mod j=0 then dem:=dem+1;
if dem=2 then write[A[i],'; '];
end;
end.
bởi nguyen taan
30/10/2018Like [0] Báo cáo sai phạm
Cách tích điểm HP
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!
NETLINK
Các câu hỏi mới
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:- Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ [10 ≤ A, M ≤ 103].
- Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.
Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:
- Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát [mỗi số cách nhau một ký tự trắng].
- Hàng 2: lần lượt là số áo, số mũ còn thừa.
23/10/2022 | 0 Trả lời
Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đó
Giúp em v ạ em sắp thi
27/10/2022 | 1 Trả lời
[0101...] là cơ sở để tạo ra ngôn ngữ gì?
30/10/2022 | 1 Trả lời
Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?
30/10/2022 | 1 Trả lời
Máy tính thực hiện một công việc thông qua yếu tố nào?
30/10/2022 | 1 Trả lời
Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?
30/10/2022 | 1 Trả lời
Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.
30/10/2022 | 1 Trả lời
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng[khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng [khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
31/10/2022 | 0 Trả lời
Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?
31/10/2022 | 1 Trả lời
Từ khoá của một ngôn ngữ lập trình là gì?
31/10/2022 | 1 Trả lời
Uses là từ khóa để khai báo yếu tố gì?
31/10/2022 | 1 Trả lời
Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?
01/11/2022 | 1 Trả lời
Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.
viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b