Ai giúp mình đi Viết chương trình: nhập vào 1 xâu.Viết ra màn hình xâu dài hơn
2 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(a)
else writeln(b);
readln;
Lần đầu mình 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(a)
else writeln(b);
readln;
end.
