Nội dung của bài toán: Nhập vào một xâu bất kỳ sau đó in ra màn hình hai xâu: xâu chữ số và xâu các kí tự còn lại. Hướng giải quyết: Xây dựng một hàm, hàm này gồm một tham số, tham số này ghi nhận xâu các kí tự còn lại của xâu, còn giá trị trả về của hàm là một xâu chứa các chữ số. Function LocXau(Var S:string):String; Var St1, St2:string;i:Byte; Begin St1:=‘ ‘; For i:=1 to Length(s) Do If (‘0’<=S[i]) And (S[i]<=‘9’) Then St1:=St1+S[i] S:=St2; End; BEGIN END. Nhap vao mot xau: a12b3c4d Writeln(‘Nhap vao mot xau:’); Readln(s); Writeln(‘Xau Chu La:’,S); Var s:string; Program LocXauSo; Else St2:=St2+S[i]; Writeln(‘Xau So La:’,LocXau(s)); a 3 b 2 1 c d 4 S ST1 1 2 3 4 St2:=‘ ‘; ST2 a b c d LocXau:=St1; S= Xau So La:1234 Xau Chu La:abcd . Nội dung của bài toán: Nhập vào một xâu bất kỳ sau đó in ra màn hình hai xâu: xâu chữ số và xâu các kí tự còn lại. Hướng giải quyết:. hàm này gồm một tham số, tham số này ghi nhận xâu các kí tự còn lại của xâu, còn giá trị trả về của hàm là một xâu chứa các chữ số. Function LocXau(Var S:string):String;