BÀI 11: Viết chương trình nhập 1 xâu từ bàn phím. Hãy chuẩn hóa xâu trên và đưa kết quả ra màn hình
2 câu trả lời
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau :');readln(s);
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)=#32 do delete(s,pos(#32#32,s),1);
writeln('Xau sau khi chuan hoa:',s);
readln
end.
uses crt;
var s:string;
BEGIN
readln(s);
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
write(s);
readln;
end.
