nhập vào họ tên bất kì sau đó chuyển thành xâu chữ hoa

0 bình luận về “nhập vào họ tên bất kì sau đó chuyển thành xâu chữ hoa”

1. program oken;

   uses crt;

   const chu = [‘a..z’];

   var ten: string;

         i,k:integer;

   begin

   clrscr;

   write(‘nhap ho va ten: ‘); readln(ten);

   k:= length(ten);

   for i:=1 to k do

   if (ten[i] in chu) then ten[i]:= upcase(ten[i]);

   write(‘Xau chu hoa: ‘);

   for i:=1 to k do

       write(ten[i]);

   readln;

   end.

   Bình luận