Bạn được MinhBui mời tham gia diễn đàn viết bài kiếm tiền VNO, bấm vào đây để đăng ký.
  1. M

    Viết chương trình pascal: Chuẩn hoá xâu họ tên

    Var s: String; I: Longint; Begin ReadLn (s) ; While Pos (#32#32, s) <>0 do Delete (s, Pos (#32#32, s), 1) ; If s[1] =#32 then Delete (s, 1, 1) ; If s[Length (s) ] =#32 then Delete (s, Length (s), 1) ; S: =s+#32; For i: = 1 to Length (s) do s: =LowerCase (s) ; S[1]: =upcase (s[1] ) ...
Xem thêm
Back