s:= ' Chuc mung nam moi'. hãy viết câu lệnh xử lí xâu để được xâu s:= ' chuc mung'

1 câu trả lời

var s:string;

begin

 s:=' Chuc mang nam moi';

 delete(s,11,8);

s[2] := chr(ord(s[2])+32);

 writeln(s);

readln;

end.

Câu hỏi trong lớp Xem thêm