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ó).

Câu 3:

uses crt;

var st1,st2:string;

d1,d2:integer;

begin

clrscr;

write('Nhap ho ten cua nguoi thu nhat:'); readln(st1);

write('Nhap ho ten cua nguoi thu hai:'); readln(st2);

d1:=length(st1);

d2:=length(st2);

if d1>d2 then writeln(st1);

if d1=d2 then writeln(st2);

if d1<d2 then writeln(st2);

readln;

end.

Câu 4:

uses crt;
var s:string;
      i:integer;
begin
clrscr;
writeln('Nhap vao 1 chuoi bat ki: ');
readln(s);
for i:= 1 to length(s) do
      if s[i] = ' ' then delete(s,pos(' ',s),1);
writeln(s);
readln;
end.

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.