Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var s,s1,s2:string;
i,d:integer;
begin
clrscr;
readln(s);
s1:='';
s2:='';
d:=length(s);
for i:=1 to d do
begin
if s[i] in ['0'..'9'] then s1:=s1+s[i];
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];
end;
writeln('Xau chua cac ki tu so la: ',s1);
writeln('Xau chua cac ki tu chu la: ',s2);
readln;
end.
uses crt;
var s1,s2:string;
begin
clrscr;
readln(s1,s2);
insert(s1,s2,5);
writeln(s2);
readln;
end.
uses crt;
const s1='Pin_NLMT';
s2='Pin_luthium';
s3='Pin_JA_Solar';
s4='Pin_Jinko_Solar';
begin
clrscr;
if s1<s4 then writeln('Xau s1 nho hon xau s4')
else if s1=s4 then writeln('Xau s1 bang xau s4)
else writeln('Xau s1 lon hon xau s4');
if s2<s3 then writeln('Xau s2 nho hon xau s3')
else if s2=s3 then writeln('Xau s2 bang xau s3')
else writeln('Xau s2 lon hon xau s3');
readln;
end.
uses crt;
var s1,s2:string;
i,j,d1,d2:integer;
begin
clrscr;
readln(s1,s2);
d1:=length(s1);
d2:=length(s2);
for i:=1 to d1 do
if not(s1[i] in ['0'..'9']) then delete(s1,i,1);
for i:=1 to d2 do
if not(s2[i] in ['0'..'9']) then delete(s2,i,1);
writeln(s1);
writeln(s2);
writeln(s1+s2);
readln;
end.