viết chương trình nhập các số nguyên cho đến khi gặp số 0 thì kết thúc.hãy đếm có bao nhiêu số chẵn đã nhập vào

0 bình luận về “viết chương trình nhập các số nguyên cho đến khi gặp số 0 thì kết thúc.hãy đếm có bao nhiêu số chẵn đã nhập vào”

1. uses crt;
   var n,i,dem:integer;
   a:array[1..100]of integer;
   begin
   clrscr;
   write(‘nhap n=’); readln(n);
   for i:=1 to n do
   begin
   write(‘a[‘,i,’]=’); readln(a[i]);
   if a[i]=0 then exit
   end;
   dem:=0;
   for i:=1 to n do
   if a[i] mod 2=0 then inc(dem);
   writeln(‘so luong so chan ban vua nhap vao la: ‘,dem);
   readln;
   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var n, d: longint;
   Begin
           Clrscr;
           d:=0;
           Repeat
           Write(‘Nhap mot so bat ki: ‘); Readln(n);
           If n mod 2 = 0 then inc(d);
           Until n=0;
           Write(‘Co ‘,d,’ so la so chan’);
           Readln
   End.

   Bình luận