Lưu ý: Bạn phải dùng vòng lặp do while để kiểm soát giá trị nhập vào n. Nếu người dùng nhập vào giá trị bé hơn 0 thì phải tiến hành nhập lại.

Xây dựng chương trình đếm số lượng các chữ số lẻ

Các bạn cùng xem chương trình sau:

include<iostream>

include<math.h>

using namespace std; int main() { int n; int count = 0; /Nhập vào giá trị n lớn hơn bằng 0/ do {

cout << "Nhap n( n >= 0 ): ";
cin >> n;

int temp = n % 10;
if (temp % 2 == 1)
  count++;
n /= 10;

Sau khi chạy chương trình trên ta có kết quả sau:

Nhap n( n >= 0 ): 12356 So luong cac chu so le la: 3

Tuy nhiên mình khuyên các bạn nên viết hẳn một hàm để đếm số lượng các số lẻ.

include<iostream>

include<math.h>

using namespace std; int dem(int n) { int count = 0; while (n != 0) {

int temp = n % 10;
if (temp % 2 == 1)
  count++;
n /= 10;

cout << "Nhap n( n >= 0 ): ";
cin >> n;

Tương tự các bạn cũng có thể tự viết chương trình để đếm số lượng các chữ số chẵn có trong số nguyên dương.

• 
• Diễn đàn
• Lập trình
• Các ngôn ngữ lập trình
• Pascal/Delphi/Kylix
• [CẦN GIÚP]Viết chương trình đếm số chẵn và lẻ trong dãy trong Pascal.

1. 

   [CẦN GIÚP]Viết chương trình đếm số chẵn và lẻ trong dãy trong Pascal.

   Viết chương trình nhập vào một dãy số nguyên khác 0(nhập số 0 để kết thúc dãy số). Đếm xem dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ.

   -
2. > chương trình đơn giản mà bạn !

var c,l,i,n,a : integer; begin write('Nhap so phan tu cua day: '); readln(n); c:=0; l:=0; for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(a); if a mod 2 = 0 then c:=c+1 else l:=l+1; end; write('Day co ',c,' so chan va ',l,' so le'); readln; end.

Bookmarks

Bookmarks

Quy định

• Bạn không thể tạo chủ đề mới
• Bạn không thể trả lời bài viết
• Bạn không thể gửi file đính kèm
• Bạn không thể sửa bài viết của mình
• BB code is On
• Smilies are On
• code is On
• code is On
• HTML code is Off

Quy định DDTH.com

Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?

program TichSoChiaHetCho3;

var

n, i, tich: integer;

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

begin

tich := 1;

write('Nhap so phan tu cua day: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(a[i]);

if a[i] mod 3 = 0 then

begin

tich := tich * a[i];

end;

end;

writeln('Tich cac phan tu chia het cho 3 la: ', tich);

readln;

end. Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?

program DemSoChanTrongDay;

var

n, i, tich: integer;

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

begin

dem := 0;

write('Nhap so phan tu cua day: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(a[i]);

if a[i] mod 2 = 0 then

begin

dem := dem + 1;

end;

end;

writeln('So phan tu chan trong day la: ', dem);

readln;

end. Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?

program HienThiSoNhoHon20;

var

n, i: integer;

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

begin

write('Nhap so phan tu cua day: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(a[i]);

if a[i] <= 20 then

begin

writeln(a[i]);

end;

end;

readln;

end.