Nhập vào một xâu S,hãy tách xâu S thành hai xâu S1 và S2 S1 gồm các kí hiệu chữ số,S2 gồm các kí hiệu chữ cái

program chuso_chucai;

uses crt;

var s,s1,s2:string;

      i:byte;

begin

      clrscr;

      write(‘Nhap xau S: ‘);  readln(s1);

      s1:=”;   s2:=”;

      for i:=1 to length(s) do

            if s[i] in [‘0’..’9′] then s1:=s1+s[i]

                  else if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then s2:=s2+s[i];

      writeln(‘S1= ‘,s1);

      writeln(‘S2= ‘,s2);

      readln;

end.