Nhập vào hai chuỗi a,b.Chuỗi nào có nhiều kí tự chữ cái hơn thì in ra màn hình chuỗi đó
Nhập vào hai chuỗi a,b.Chuỗi nào có nhiều kí tự chữ cái hơn thì in ra màn hình chuỗi đó
By Maya
By Maya
Nhập vào hai chuỗi a,b.Chuỗi nào có nhiều kí tự chữ cái hơn thì in ra màn hình chuỗi đó
uses crt;
var a,b:string;
begin
clrscr;
write(‘Nhap xau a: ‘); readln(a);
write(‘Nhap xau b: ‘); readln(b);
writeln(‘So ky tu o xau a: ‘,length(a));
writeln(‘So ky tu o xau b: ‘,length(b));
if length(a)>length(b) then write(‘Xau co ky tu nhieu hon la xau a’)
else write(‘Xau co ky tu nhieu hon la xau b’);
readln;
end.
*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.