YOMEDIA
NONE

Nhập vào một chuỗi là họ và tên một ai đó nhưng sai định dạng(có kí tự lạ thừa cách đầu cuối giữa sai in kí tự hoa thường)yêu câu in ra sâu kí tự đc chuẩn hóa

Bai8.inp

Bai8.out
NgUYeN9 THi hOaN@ Nguyen Thi Hoan

 

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • program hotrotinhoc;

    const fi='Bai8.inp';

    fo='Bai8.out';

    var s: string;

    i: integer;

    f: text;

    procedure ip;

    begin

    assign(f,fi);

    reset(f);

    read(f,s);

    close(f);

    end;

    procedure out;

    begin

    assign(f,fo);

    rewrite(f);

    for i:=1 to length(s) do

    if (s[i] in ['A'..'Z'] ) then s[i]:=chr(ord(s[i])+32);

    s[1]:=upcase(s[1]);

    for i:=2 to length(s) do

    if (s[i-1]=#32) and (s[i] in ['a'..'z']) then s[i]:=upcase(s[i]);

    for i:=1 to length(s) do

    if (s[i] in ['A'..'z']) or (s[i]=#32) then write(f,s[i]);

    close(f);

    end;

    begin

    ip;

    out;

    end.

      bởi Ánh tuyết 19/11/2021
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
ATNETWORK
ON