Viết chương trình tạo ra 2 xâu bất kì , sau đó so sánh độ dài của 2 xâu đó

0 bình luận về “Viết chương trình tạo ra 2 xâu bất kì , sau đó so sánh độ dài của 2 xâu đó”

1. 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 (‘xau a lon hon xau b’);

   if length(a)<length(b) then writeln (‘xau b lon hon xau a’);

   if length(a)=length(b) then writeln (‘xau a bang xau b’);

   readln;

   end.

   Bình luận