Question

Viết chương trình nhập vào 2 xâu kí tự  , so sánh độ dài 2 xâu rồi đưa ra màn hình xâu có độ dài ngắn hơn .

Answer 1

program so_sanh;

uses crt;

var a, b: string;

begin

clrscr;

write('nhap xau thu nhat: ');readln(a);

 write('nhap xau thu hai: ');readln(b);

if length(a)<length(b) then write(a) else write(b);

readln 

end.

Answer 2

Uses crt;

Var st1,st2:string;

D1,d2:integer;

Begin

Clrscr;

Write('nhap xau thu 1:'); readln(st1);

Write('nhap xau thu 2:'); readln(st2);

D1:=length(st1);

D2:=length(st2);

If d1<d2 then write(st1)

Else writeln(st2);

Readln;

End.