YOMEDIA
NONE

Sử dụng NNLT pascal viết ct thực hiện các yêu cầu sau:

a, nhập vào 1 xâu bất kì

b, Biến đổi các chữ cái trong xâu vừa nhập thành chữ in hoa( ví dụ abc thành ABC)

c, Xoá các kí tự trắng dư thừa ở đầu xâu, cuối xâu, giữa 2 từ chỉ có 1 khoảng trắng

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • uses crt;

    var st:string;

    d,i:integer;

    begin

    clrscr;

    {---------------------------cau-a---------------------------}

    write('nhap xau:'); readln(st);

    {---------------------------cau-b---------------------------}

    d:=length(st);

    for i:=1 to d do

    st[i]:=upcase(st[i]);

    for i:=1 to d do

    write(st[i]);

    {--------------------------cau-c----------------------------}

    writeln;

    while pos(' ',st)>0 do

    delete(st,pos(' ',st),1);

    if st[1]=' 'then delete(st,1,1);

    if st[d]=' 'then delete(st,d,1);

    writeln('xau sau khi bien doi la: ',st);

    readln;

    end.

      bởi Ho Ngoc Ha 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