OPTADS360
NONE
YOMEDIA
Banner-Video
IN_IMAGE

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

 

  bởi Lê Nhi 19/11/2021
ADMICRO/lession_isads=0

Câu 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
 
 

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

NONE
OFF