Cách đếm có bao nhiêu số chẵn viết bằng pascal

Answers ( )

1. 

   diemmy

   0

   2021-07-24T22:25:45+00:00 24/07/2021 at 22:25

   Reply

   uses crt;

   var n,i,d: integer;

   begin

   clrscr;

   write (‘nhap n: ‘):  readln (n);

   for i:=1 to n do

   if i mod 2=0 then d:=d+1;

   writeln (‘cac so chan nho hon hoac bang n la: ‘,d);

   readln;

   end.

3. 

   khanhngan

   0

   2021-07-24T22:25:48+00:00 24/07/2021 at 22:25

   Reply

   Bài này có 2 cách làm:

   C1.

   uses crt;
   var n,i,d:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do if i mod 2=0 then inc(d);
      writeln(‘Co ‘,d,’ so chan <=n’);
   readln;
   end.

   C2. 

   uses crt;
   var n:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      if n mod 2=1 then dec(n);
      writeln(‘Co ‘,n div 2,’ so chan <= n’);
   readln;
   end.

1. 
   Registered User

   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. 
   Registered User

   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.

   ---

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

Quy định DDTH.com

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