Website and domain for sale: mail@discussmain.com

In the set whole positive number N (0 & lt; N & lt; 2^10) remove all even figures without breaking the sequence of figures in number. in pascal

115
//PascalABC. Net 3. 2 begin var s: = readstring (Enter number:); var i: = 1; var m: = [2, 4, 6, 8, 0]; while i< = length(s) do begin if s[i] in m then delete (s, i, 1); inc (i); end; write (s); end.
114
Answer add