Viết chương trình nhập vào 1 xâu từ bàn phím a ) Điền kí tự trong xâu b) Đổi xâu thành xâu mhoa

0 bình luận về “Viết chương trình nhập vào 1 xâu từ bàn phím a ) Điền kí tự trong xâu b) Đổi xâu thành xâu mhoa”

1. uses crt;
   var st : string;
   i : integer;
   begin clrscr;
   write(‘Nhap xau :’); readln(st);
   writeln(‘Ki tu co trong xau la :’, length(st));
   for i:=1 to length(st) do st[i]:=upcase(st[i]);
   writeln(st);
   readln
   end.

   Bình luận

2. uses crt;
   var str:string;
   begin
   clrscr;
       readln(str);
       writeln(length(str));
       write(upcase(str)); 
   readln;
   end.

   Bình luận