Viết chương trình thực hiện: - nhập chương trình bất kì hiển thị xâu và cho biết độ dài xâu. Cho biết trong xâu có kí tự “hanh” hay ko - nhập 2 xâu cho biết Xâu nào dài hơn Xâu nào ngắn hơn
1 câu trả lời
uses crt;
var s1,s2: string;
begin
clrscr;
write ('s1= '); readln (s1);
write ('s2= '); readln (s2);
if length(s1)>length(s2) then write ('xau 1 dai hon xau 2');
if length(s1)<length(s2) then write ('xau 1 ngan hon xau 2');
if length(s1)=length(s2) then write ('xau 1 bang xau 2');
readln;
end.
