uses crt; var f:text; n,i,d:longint; a:array[1..1000000]of longint; function kt(a:longint):boolean; var d1,d2:longint; begin d1:=0; d2:=0; repeat if a mod 10 mod 2=0 then inc(d1) else inc(d2); a:=a div 10; until a=0; kt:=d1=d2; end; begin clrscr; assign(f,'DULIEU.INP');reset(f); readln(f,n); for i:=1 to n do begin read(f,a[i]); if kt(a[i]) then inc(d); end; close(f); writeln('Co ',d,' so can bang'); readln end.
program bai_giai; uses crt; var f:text; n,d:longint; function ktcb(k:longint):boolean; var d1,d2,a:integer; begin d1:=0; d2:=0; while k<>0 do begin a:=k mod 10; if a mod 2=0 then d1:=d1+1 else d2:=d2+1; k:=k div 10; end; if d1=d2 then ktcb:=true else ktcb:=false; end; BEGIN clrscr; Assign(f,'DULIEU.INP'); reset(f); d:=0; while not eof(f) do begin read(f,n); if ktcb(n) then d:=d+1; end; write(d); readln; end.
