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ố?
1 câu trả lời
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.
