*So sánh 2 chuỗi
program chuoi;
uses crt;
var a,b:string;
begin
clrscr;
write('Nhap chuoi a: '); readln(a);
write('Nhap chuoi b: '); readln(b);
if length(a)>length(b) then write(a)
else if length(a)<length(b) then write(b)
else write('Hai chuoi bang nhau');
readln;
end.
*So sánh chữ cái của 2 chuỗi
program chuoi_chu_cai;
uses crt;
var a,b,ca,cb:string;
i:byte;
begin
clrscr;
write('Nhap chuoi a: '); readln(a);
write('Nhap chuoi b: '); readln(b);
ca:='';
for i:=1 to length(a) do
if (a[i] in ['a'..'z']) or (a[i] in ['A'..'Z']) then ca:=ca+a[i];
cb:='';
for i:=1 to length(b) do
if (b[i] in ['a'..'z']) or (b[i] in ['A'..'Z']) then cb:=cb+b[i];
if length(ca)>length(cb) then write(a)
else if length(a)<length(b) then write(b)
else write('Hai chuoi co so luong chu cai bang nhau');
readln;
end.
