Viết chương trình nhập từ bàn phím số nguyên dương N với N ≤100 và dãy A gồm N số nguyên A1, A2 ...AN có giá trị tuyệt đối không lớn hơn 1000 in ra màn hình số lượng số chẵn và số lẻ
Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1, A2 ...AN có giá trị tuyệt đối không lớn hơn 1000. Hãy đưa ra những thông tin sau:
a) Số lượng số chẵn và số lượng số lẻ
b) số lượng số nguyên tố trong dãy
Câu trả lời (1)
-
Đối với với bài toán này thì phần kiểm tra số nguyên dương N(N<100) và dãy A gồn N số nguyên A1, A2 ...AN có giá trị tuyệt đối không lớn hơn 1000 giống như bài tập 5 đã nêu ờ trên. Chúng ta chi cần giải quyết thêm 2 vấn đề nữa, đó là đếm số lượng số chẵn, số lẻ và số lượng số nguyên tố trong dãy.
Chưntg trình:
progran baitap6_chuong4;
uses crt;
var
array[1..100] of integer;
if: boolean;
N, i„ l: integer; so_nt, so_chan: integer;
begin
for i := -1000 to 1000 do if i>0 then NT:= false;
so_chan:=0; so_nt:=0;
{Nhap vao)repeat
write('So phan tu cua day A (N<=100), N= *);
readln(N);
until (N>0) and
(N<=100);
for i:= 1 to N do
begin
{kiem tra cac phan tu cua day khi nhap vao}
repeat
write('A[',i,']= ');readln(A[i]);
if (a[i]>1000) or (a[i]<-1000) then
write('Moi nhap lai ");
until (a[i]>-1000) and (a[i]<1000); = if A[i] mod 2 =0 then so_chan:= so_chan + 1; if A[i] >1 then
begin
u: = 2 ;
while ((u<=sqrt (A[i])) and (A[i] mod u<>0))) do u: = u + 1; if u>sqrt(A[i]) then so_nt:= so_nt + 1;
end,
end;
{In ra man hinh}
writeln('So luong so chan:',so_chan);
writeln('So luong so le:',N - so_chan);
writeln(’So luong so nguyen tro:', so_nt);
readln
End.
Khi chạy chương trình, ta lần lượt nhập các phần tử của dãy A:
Với N = 3 và các phần tử được nhập vào theo thứ tự:
A[1]=5
A[2]=7
A[3]=900
thì chương trình đưa ra thông báo:
So luong so chan: 1
So luong so le: 2
So luong so nguyen to: 2
- Với 5 và các phần tử được nhập vào theo thứ tự:
A[1]=12
A[2]=3 A[3]=5
A[4>10 A [5] =11
thì chương trinh đưa ra thông báo:
So luong so chan: 2
So luong so le: 3
So luong so nguyen to: 3Trong trường hợp số phần tử nhập vào và giá trị các phần tử của dãy A không thỏa mãn điều kiện thì chương trình sẽ có thông báo mời nhập lại. Chẳng hạn, trong các trường hợp sau đây:
A[1] = 12
A [ 2] = 2000 thì chương trình đưa ra yêu cầu Moi nhap lai A[2]= 800 A[3 = 17
A [ 4] = -1500 thì chương trình đưa ra yêu cầu Moi nhap lai A[4]= -200 A[5] =31 A [ 6 = 5 A[7 = 350
Kết quả chương trình đưa ra thông báo (Hình 64):
So luong so chan: 4
So Luong so le: 3
So luong so nguyen to: 3bởi Nhật Ánh 07/11/2018Like (0) Báo cáo sai phạm
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
Các câu hỏi mới
-
+ Các ước của n
+ Số lượng các ước của n
+ Tổng các ước của n
+ Xét tổng đó có phải là số hoàn hảo?
29/11/2022 | 0 Trả lời
-
Viết chương trình nhập vào chiều, chiều rông hình chữ nhật và nhập vào cạnh của hình vuông. Thông báo ra màn hình diện tích hình nào lớn hơn.
30/11/2022 | 0 Trả lời
-
vViết chương trình nhập 3 số a,b,h hãy biết só lớn nhất trong 3 số đó
07/12/2022 | 0 Trả lời
-
VIDEOYOMEDIA
viết chương trình nhập vào hai số a,b .kiểm tra xem a ,b là số âm hay dương,chẳn hay lẻ.kiểm tra xem a có chia hết cho b hay không.kiểm tra xem a,b có chia hết cho 3 hay không
07/12/2022 | 0 Trả lời
-
Tìm input, output và mô tả thuật toán bài sau: xác định một số tự nhiên x bất kì để chứng minh là số chẵn không?
09/12/2022 | 0 Trả lời
-
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
14/12/2022 | 0 Trả lời
-
viết chương trình giải phương trình bậc nhất ax=b.Với a,b nhập bằng bàn phím Tin
17/12/2022 | 0 Trả lời
-
Cho x và y là 2 độ dài 2 cạnh của một hình chữ nhật. Viết chương trình so sánh 2 giá trị x, y và thông báo nó là hình vuông hay hình chữ nhật thường
18/12/2022 | 0 Trả lời
-
tại sao nguười ta không viết chương trình bằng ngôn ngữ máy?
19/12/2022 | 0 Trả lời
-
cú pháp khai báo biến cho ví dụ khai báo bến trong pascal
20/12/2022 | 0 Trả lời
-
tính quãng đường tào hỏa đi được trong thời gian t vận tốc v
21/12/2022 | 0 Trả lời
-
Em hãy xác định INPUT, OUTPUT và mô tả thuật toán của bài toán nhập vào 2 số nguyên dương a, b và in ra kết quả số a nếu a lớn hơn b và ngược lại in kết quả b. (Ví dụ : nhập 20, 9 in ra 20 ngược lại nhập 9,20 in ra 20).
25/12/2022 | 0 Trả lời
-
Viết chương trình hoàn chỉnh sử dụng câu lệnh điều kiện thực hiện nhập từ bàn phím giá trị của biến nguyên a và kiểm tra nếu a là số lẻ thì tính và in ra màn hình diện tích hình vuông với độ dài cạnh là 2a không thì đi tính chu vi hình vuông với độ dài cạnh là 2a?
Mô tả lại thuật toán giải bài toán trên
28/12/2022 | 0 Trả lời
-
Viết chương trình nhập vào một số nguyên a bất kỳ. Kiểm tra xem số a là số chẵn hay số lẻ. Nếu là số chẵn, tăng giá trị của a thêm 10 đơn vị; Nếu là số lẻ, giảm giá trị của a 10 đơn vị.
30/12/2022 | 0 Trả lời
-
viết công thức tính C=2/3*3/4*4/5....*n/n+1 (n>0)
31/01/2023 | 0 Trả lời
-
Viết chương trình tính tổng: S=1+3+5+...+999
09/02/2023 | 0 Trả lời
-
S=1+1/2^2+1/3^2+...+1/n^2. Trong đó N là một số nguyên được nhập vào từ bàn phím. S là tổng các phân số từ 1 đến n, sau khi tính toán tổng S được xuất ra màn hình.
09/02/2023 | 0 Trả lời
-
Sử dụng câu lệnh lặp để viết chương trình tính tổng 1x2+2x3+3x4+...+n(n+1)
24/02/2023 | 0 Trả lời
-
Viết chương trình tính tổng S=1+2+3+.... đến khi S lớn hơn 250 thì dừng. In ra màn hình giá trị tổng S vừa tính và cho biết giá trị cuối cùng được cộng là bao nhiêu?
05/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số tự nhiên và sắp xếp sau đó in ra màn hình kết quả.
09/03/2023 | 0 Trả lời
-
cho dãy n số nguyên tính tổng các phần tử của dãy và cho biết phần tử nào lớn nhất trong dãy. Hãy viết chương trình bằng pascal?
28/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số sau đó sắp xếp theo thứ tự từ bé đến lớn?
05/04/2023 | 0 Trả lời
-
S:=1; For i:=1 to 5 do S:=S*i;
Giá trị của biến S bằng bao nhiêu?
A. 120
B. 55
C. 121
D. 151
12/04/2023 | 0 Trả lời
-
Viết chương trình pascal nhập hai số a;b (a>0 ; b>0) xuất ra màn hình các số chính phương từ a-b.
12/04/2023 | 0 Trả lời
-
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên . độ dài của dãy cũng đc nhập từ bàn phím .in ra màn hình tổng các giá trị là số lẻ
14/04/2023 | 0 Trả lời