Nhập vào 1 xâu .Đưa ra màn hình xâu là chữ in hoa

0 bình luận về “Nhập vào 1 xâu .Đưa ra màn hình xâu là chữ in hoa”

1. uses crt;

   var s,ih: string;

   i: byte;

   begin

   clrscr;

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

   for i:=1 to length(s) do

   if upcase(s[i])=s[i] then ih:=ih+s[i];

   writeln (‘xau la ki tu in hoa co trong xau vua nhap la: ‘);

   for i:=1 to length(ih) do write (ih[i]);

   readln;

   end.

   xin hay nhất !!!

   Bình luận

2. var s: string;

       i: byte;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       For i:=1 to length(s) do

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

       Write(s);

       Readln

   End.

   Bình luận