Viết chương trình tạo ra 2 xâu bất kì , sau đó so sánh độ dài của 2 xâu đó
1 câu trả lời
uses crt;
var a,b: string;;
begin
clrscr;
write ('nhap xau a: '); readln (a);
write ('nhap xau b: '); readln (b);
if length(a)>length(b) then writeln ('xau a lon hon xau b');
if length(a)<length(b) then writeln ('xau b lon hon xau a');
if length(a)=length(b) then writeln ('xau a bang xau b');
readln;
end.
