viết chương trình nhập 1 xâu chưa mã bưu phẩm(2 kí tự đầu là viết tắt tên thành phố ,vd:DN là đà nẵng, HN: hà nội...), 10 kí tự sau là số điện thoại của khách hàng. theo quy định 2 kí tự đầu phải viết hoa. tuy nhiên do lỗi đánh máy nên các kí tự này bị viết chữ thường, em hãy lập trình để sửa lỗi trên. EM CÁC BẠN GIÚP MÌNH VỚI Ạ. XIN CẢM ƠN.
2 câu trả lời
uses crt;
var s : string; i : byte;
begin
clrscr;
write('Nhap xau : '); readln(s);
for i := 1 to 2 do s[i] := upcase(s[i]);
write('Xau moi : ', s);
readln
end.
Program HuynhDucNhatDeThuongQuaDiA;
Uses crt;
Var HDNCute: String;
i: longint;
Begin
Clrscr;
Write('Nhap xau: '); Readln(HDNCute);
HDNCute[1]:=Upcase(HDNCute[1]);
HDNCute[2]:=Upcase(HDNCute[2]);
Write('Xau = ',HDNCute);
Readln
End.
Câu hỏi trong lớp
Xem thêm
