Nhập vào 2 xâu đưa ra xâu dài nhất, nếu 2 xâu bằng nhau thì đưa ra xâu thứ 2. Giúp mình với mình ko hiểu gì luôn viết chương trình ạ.
2 câu trả lời
uses crt;
var s1,s2:string;
begin
clrscr;
write('Nhap xau thu nhat: ');readln(s1);
write('Nhap xau thu hai: ');readln(s2);
write('Xau dai hon: ');
if length(s1)>length(s2) then write(s1) else write(s2);
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)
else write(s2);
readln;
end.
