Question

Cho xâu st=‘______THPT_____Hoang____Hoa____Tham____’ Hãy viết chương trình để chuyển xâu trên thành xâu ‘THPT Hoang Hoa Tham’

Answer 1

program VTC:

uses crt;

Begin

     clrscr;

    Writeln(' THPT Hoang Hoa Tham' );

    readln;

end.

Answer 2

PROGRAM HOC24;

var st,s: string;

begin

st:='______THPT_____Hoang____Hoa____Tham____’;

for i:=1 to length(st) do if not(st[i] in ['A'..'z']) then st[i]:=#32;

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

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

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

write(st);

readln

end.