Nhập một xâu gồm các chữ cái thường in ra 1 câu khác là xâu gồm các chữ cái in hoa của xâu cũ
2 câu trả lời
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],' ');
readln;
end.
program bai_giai;
uses crt;
var s:string;
i:byte;
begin
clrscr;
readln(f,s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then write(s[i]);
readln;
end.
