Viết phương trình nhập vào 2 xâu bất kỳ so sánh độ dài hai xâu
2 câu trả lời
uses crt;
var s1, s2 : string;
begin
clrscr;
write('Nhap xau s1 : '); readln(s1);
write('Nhap xau s2 : '); readln(s2);
if s1 > s2 then write('Xau s1 lon hon xau s2');
if s1 < s2 then write('Xau s1 nho hon xau s2');
if s1 = s2 then write('Xau s1 bang xau s2');
readln
end.
if length(s1)>length(s2) then write('s1>s2') else write('s2>s1');
Nhập xuất tự làm
