cho một sâu kí tự St có độ dài tối đa 255 ký tự các ký tự được lấy từ tập'a'..'z''A'..'Z''0'..'9; yêu cầu tách sâu st thành hai sâu st1 gồm các ký tự chữ cái xâu st2 gồm các ký tự chữ số các ký tự trong st1 và st2 vẫn được giữ nguyên thứ tụ từ trái sang phảigiúp mình với...
Đọc tiếp
cho một sâu kí tự St có độ dài tối đa 255 ký tự các ký tự được lấy từ tập'a'..'z''A'..'Z''0'..'9;
yêu cầu tách sâu st thành hai sâu st1 gồm các ký tự chữ cái xâu st2 gồm các ký tự chữ số các ký tự trong st1 và st2 vẫn được giữ nguyên thứ tụ từ trái sang phải
giúp mình với ạ
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then write(st[i]);
writeln;
for i:=1 to d do
if (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.