Question

How to move the digits of a string with digits and letters to the beginning of the string in Pascal

Answer 1

program MoveDigitsToFront;

function MoveDigitsToBeginning(input: string): string;
var
  digits, letters: string;
  i: Integer;
begin
  digits := '';
  letters := '';
  
  for i := 1 to Length(input) do
  begin
    if input[i] in ['0'..'9'] then
      digits := digits + input[i]
    else
      letters := letters + input[i];
  end;
  
  MoveDigitsToBeginning := digits + letters;
end;

var
  str: string;
begin
  str := 'd2c54aeb31';
  
  str := MoveDigitsToBeginning(str);

  WriteLn('Modified: ', str);
end.

  
  
    
(*
run:
  
Modified: 25431dcaeb
    
*)

 

70+ SQL courses for beginners and professionals