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
2 câu trả lờ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.
uses crt;
var s,s1,s2:string;
i:byte;
begin
clrscr;
write('nhap xau s1: '); readln(s1);
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.
