Bài 3: Viết chương trình nhập vào từ bàn phím họ tên hai người. Đưa ra màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu nhập sau.
Bài 4: Viết chương trình nhập vào từ bàn phím một xâu. Đưa ra màn hình xâu thu được từ nó sau khi đã loại bỏ các dấu cách (nếu có).
Bài 3:
var a,b:string;
begin
write(‘nhap ho ten nguoi thu nhat: ‘);readln(a);
write(‘nhap ho ten nguoi thu hai: ‘);readln(b);
if length(a)>length(b) then write(a) else write(b);
if length(a)= length(b) then write(b);
readln
end.
Bài 4:
uses crt;
var a:string;
begin
write (‘nhap xau: ‘);readln(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,s),1);
writeln(s);
readln
end.