nhập vào 1 xâu.nếu độ dài của xâu là chẵn thì chuyển cả xâu đó thành chữ in hoa, ngược lại đưa ra độ dài

0 bình luận về “nhập vào 1 xâu.nếu độ dài của xâu là chẵn thì chuyển cả xâu đó thành chữ in hoa, ngược lại đưa ra độ dài”

1. program do_dai;

   uses crt;

   var s:string;

         i:byte;

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(s);

          if length(s) mod 2=0 then

                 begin

                        for i:=1 to length(s) do

                               s[i]:=upcase(s[i]);

                        write(s);

                 end

          else write(‘Do dai cua xau la: ‘,length(s));

          readln;

   end.

   Bình luận

2. uses crt;
   var n:string;
   Begin
    clrscr;
    write(‘Nhap xau: ‘);
    readln(n);
    if length(n) mod 2 = 0 then
    Begin
     n:=Upcase(n);
     write(n);
    end else write(‘Do dai xau la: ‘,length(n));
    readln;
   end.

   Bình luận