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

0 bình luận về “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”

1. 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.

   

   Bình luận