Question

viết chương trình nhập vào từ bàn phím một chuỗi kí tự S (tối đa 255 kí tự)

a) Cho biết đâu là chữ cái, chữ số và kí hiệu đặc biệt

a) Những kí tự là chữ cái thì hãy viết in hoa và đảo ngược vị trí lại

c) Chỉ ra vị trí của chữ X trong chuỗi

VD: Chuoi S: asDfG5h2Jkl;'7,."+_+4@2#%*_*(x^9)

Chu cai: XLKJHGFDSA

Chu so: 5279

Ki tu khac: ;',."+_+@#%*_*(^)

khó quá!!

Answer 1

Program hotrotinhoc;

var s,st:tring;

i,j,n: integer;

begin

readln(s);

st:='';

for i:=1 to length(s) do

begin

if s[i] in ['A'..'z'] then s[i]:=upcase(s[i]);

st:=st+s[i];

end;

write('Chu cai :');

for i:=length(st) downto 1 do write(st[i]);

writeln;

write('Chu so :');

for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);

writeln;

write('Ki tu khac :');

for i:=1 to length(s) do

if not(s[i] in ['A'..'z']) and not(s[i] in ['0'..'9']) then write(s[i]);

writeln;

write('Chu cai X o vi tri :');

for i:=1 to length(s) do

if s[i]='X' then write(i,' ');

readln

end.

Answer 2

Program hotrotinhoc;

var s,st:tring;

i,j,n: integer;

begin

readln(s);

st:='';

for i:=1 to length(s) do

begin

if s[i] in ['A'..'z'] then s[i]:=upcase(s[i]);

st:=st+s[i];

end;

write('Chu cai :');

for i:=length(st) downto 1 do write(st[i]);

writeln;

write('Chu so :');

for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);

writeln;

write('Ki tu khac :');

for i:=1 to length(s) do

if not(s[i] in ['A'..'z']) and not(s[i] in ['0'..'9']) then write(s[i]);

writeln;

write('Chu cai X o vi tri :');

for i:=1 to length(s) do

if s[i]='X' then write(i,' ');

readln

end.