Bài 2: Viết chương trình nhập vào hai xâu ký tự. kiểm ra và in ra màn hình xâu lớn hơn.
2 câu trả lời
Program baitap;
Uses crt;
Var a,b:string;
Begin
Clrscr;
Writeln('Nhap xau thu nhat:');
Readln(a);
Writeln('Nhap xau thu hai:');
Readln(b);
If length(a)> length(b) then writeln(a ,' la xau lon hon')
Else writeln(b ,' la xau lon hon');
Readln
End.
uses crt;
var a, b: string;
begin
clrscr;
readln(a);
readln(b);
if length(a) > length(b) then write(a) else write(b);
readln;
end.
