uses crt; var s:string; i:longint; begin clrscr; readln(s); for i:=1 to length(s) do if s[i] in ['A'..'Z'] then write(s[i]); writeln; for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(s[i]); writeln; for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]); readln; end.
uses crt; var i:longint; s:string; begin clrscr; write('S=');readln(s); write('Chu hoa: '); for i:=1 to length(s) do if s[i] in ['A'..'Z'] then write(s[i]); writeln; write('Chu thuong: '); for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(s[i]); writeln; write('Chu so: '); for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]); readln end.
