nhập vào họ tên bất kì sau đó đổi các chữ đầu tiên của mỗi từ thành chữ hoa

0 bình luận về “nhập vào họ tên bất kì sau đó đổi các chữ đầu tiên của mỗi từ thành 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);

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

   for i:=2 to k do

      if (ten[i-1]= #32) and (ten[i] in chu) then 

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

   write(‘ten sau khi in hoa: ‘,ten);

   readln;

   end.

   Bình luận