Question

a. Viết chương trình xoá các dấu cách thừa trong một xâu ký tự (giữa hai từ chỉ có một dấu cách )

B. Đổi các ký tự đầu từ của xâu sang chữ in hoa

C. Tách phần tên ra khỏi xâu gồm họ tên . Theo qui ước cách ghi tên của tiếng việt , tên là từ cuối cùng trong xâu.

Answer 1

Program HOC24;

var s: string;

i,x: byte;

begin

readln(s);

//-----------Câu a

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,1);

writeln(s);

//-------------Câu b

s[1]:=upcase(s[1]);

for i:=1 to length(s) do

if s[i]=#32 upcase(s[i+1]);

writeln(s);

//--------------Câu c

for i:=1 to length(s) do

if s[i]=#32 then x:=i;

for i:=x+1 to length(s) do

write(s[i]);

//---------------------------

readln

end.