Giúp em bài tập về sâu ki tự

[TrungTinh95]

Cho một sâu kí tự rồi xuất ra mảng hình 1 sâu mang số còn một sâu mang chữ.
VD: sâu: vietnam2010
S1: vietnam
S2: 2010
VD2: sâu: viet20nam50
S1: vietnam
S2: 2050

[dancuipascal]

Var a,b,c:string;
i:integer;
begin
write('Nhap vao 1 xau:');readln(a);
for i:=1 to length(a) do
if (ord(a[i])>=48) and (ord(a[i])<=57) then b:=b+a[i]
else c:=c+a[i];
writeln(c);
writeln(b);
readln;
end.


xem bài này đúng hay sai nha..!!

[TrungTinh95]

Quá tuyệt luôn cảm ơn nha!!!!!!

[nirvanat]

=.="
Bài này..........

[lehang_gb1]

Var S,S1,S2:string;
i:integer;
Begin
write('Nhap vao xau:'); Readln(S);
S1:='';S2:='';
For i:=1 to length(S) do
Begin
if (S[i]>='a') and (S[i]<='z') then S1:=S1+S[i];
if (S[i]>='0') and (S[i]<='9') then S2:=S2+S[i];
End;
Writeln('Xau gom cac chu la:',S1);
Write('Xau gom cac so la:', S2);
Readln
End.