Yêu cầu : chạy chương trình nhập chuỗi " quoc8tephu3nu8"
Quảng cáo
1 câu trả lời 1048
uses crt;
var s,s1,s2,s3,s4:string;
i:longint;
begin
clrscr;
readln(s);
for i:=1 to length(s) 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;
for i:=(length(s1)) downto 1 do s3:=s3+s1[i];
for i:=(length(s2)) downto 1 do s4:=s4+s2[i];
if s3=s1 then write(s1,' - chuoi doi xung') else write(s1,' - chuoi khong doi xung');
writeln;
if s4=s2 then write(s2,' - chuoi doi xung') else write(s2,' - chuoi khong doi xung');
readln
end.
Quảng cáo