Pascal cung cấp hàm upcase (c) trả về kết quả là chữ cái in hoa nếu C là chữ cái thường và giữ nguyên C trong trường hợp ngược lại. Hãy lập trình -Nhập từ bàn phím xâu S -Viết chương trìn
Giải thích
Lời giả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.