Viết chương trình nhập vào 2 xâu kí tự từ bàn phím sau đó đưa ra màn hình xâu có đọ dài lớn hơn . Nếu bằng đưa ra xâu nhập trước

GIẢI THÍCH CÁC BƯỚC GIẢI

PROGRAM SO_SANH;

VAR s1, s2: string;

BEGIN

Writeln(‘Nhap vao xau thu nhat:’); Readln(s1);

Writeln(‘Nhap vao xau thu nhat:’); Readln(s2);

If length(s1) < length(s2) then Write(‘Xau ngan hon la:’,s1)

                                          Else Write(‘Xau ngan hon la:’,s2);

program xau;
uses crt;
var x1,x2 : string;
begin clrscr;
writeln('Nhap xau ki tu thu nhat :'); readln(x1);
writeln('Nhap xau ki tu thu hai :'); readln(x2);
if length(x1) > length(x1) then writeln(x1) else
if length(x1) < length(x2) then writeln(x2) else
writeln(x1);
readln
end.