Viết chương trình nhập 2 xâu từ bàn phím và đưa ra màn hình xâu ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập trước Mn giúp em với ạ! Hứa vote 5 sao ạ
2 câu trả lời
uses crt;
var s1,s2:string;
begin
clrscr;
readln(s1);
readln(s2);
if length(s1)< length(s2) then write(s1) else if length(s2)<length(s1) then write(s2) else write(s1);
readln
end.
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);
Readln
END.
