viết chương trình nhập 1xâu ký tự. thực hiện thao tác sao chép xâu tại vị trí bất kỳ

0 bình luận về “viết chương trình nhập 1xâu ký tự. thực hiện thao tác sao chép xâu tại vị trí bất kỳ”

1. Ví dụ :Xâu abCdAbcD sẽ cho ra xâu abcdabcd
   Uses Crt;

   Var  St:String;

           i:Byte;

   Begin

       Write(‘Nhap xau St: ‘); Readln(St);

       For i:=1 to length(St) do

           If St[i] IN [‘A’..’Z’] Then St[i]:=CHR(ORD(St[i])+32);

       Write(‘Xau ket qua: ‘, St);

       Readln;

   End.

   chúc bn làm tốt

   Bình luận