

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
Program Biendoi;
Uses crt;
Var S: String;
i: longint;
Begin
Clrscr;
Write('Nhap S: '); Readln(S);
For i:=1 to length(S) do
S[i] := Upcase(S[i]);
Write('Sau khi bien doi: ',S);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Program DOI_CHUOI_CHU_HOA;
Uses Crt;
Var i:integer;st:string;
Begin
Clrscr;
readln(st);
st[1]:=upcase(st[1]);
For i:=1 to length(St) do
st[i]:=upcase(st[i]);
Writeln(st);
Readln;
{samon247}
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin