Nhập vào 1 xâu. Đưa ra màn hình xâu dài nhất nếu 2 xâu bằng nhau thì đưa ra xâu ghép đó của 2 xâu
Nhập vào 1 xâu. Đưa ra màn hình xâu dài nhất nếu 2 xâu bằng nhau thì đưa ra xâu ghép đó của 2 xâu
By Remi
By Remi
Nhập vào 1 xâu. Đưa ra màn hình xâu dài nhất nếu 2 xâu bằng nhau thì đưa ra xâu ghép đó của 2 xâu
var a, b: string;
Begin
Write(‘nhap xau a: ‘); readln(a);
Write(‘nhap xau b: ‘); readln(b);
If length(a)>length(b) then write(a)
Else if length(a)=length(b)
Then write(a, b)
Else write(b);
Readln
End.
program xau_dai;
uses crt;
var s1,s2:string;
begin
clrscr;
write(‘Nhap xau thu nhat: ‘); readln(S1);
write(‘Nhap xau thu hai: ‘); readln(s2);
if length(s1)=length(s2) then write(s1+s2)
else if length(s1)>length(s2) then write(s1) else write(s2);
readln;
end.