K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

16 tháng 4 2023

program ChuyenXauSangChuThuong;
var
  str: string; 
  i: integer; 

begin
  write('Nhap mot xau ky tu: ');
  readln(str); 
  for i := 1 to Length(str) do
    str[i] := LowerCase(str[i]); 
  writeln('Xau ky tu chuyen thanh chu thuong la: ', str); 
end.

4 tháng 10 2019

Program hotrotinhoc;

var s: char;

st: ansistring;

begin

while s<>'C' do

begin

readln(s);

st:=st+s;

end;

st:=upcase(st);

write(st);

readln

end.

4 tháng 10 2019

thanks chị