Nhập vào từ bàn phím 1 số nguyên N ( N <= 10100). Hãy viết chương trình Xóa đi các chữ số chẵn của số đó. Đếm xem số còn lại sau khi xóa có bao nhiêu chữ số?
uses crt; var n,i:integer; s:string; begin clrscr; readln(n); str(n,s); for i:=1 to length(s) do if s[i] in ['2','4','6','8','0'] then delete(s,i,1); write(s); readln; end.