Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
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.
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.
