Viết chương trình đưa ra xâu S với các kí tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa
2 câu trả lời
program bienhinh ;
var s: string[200]
i: byte;
Begin
Write('nhap xau: ');
readln(s);
for i:=1 to length(s) do
S[i]:=upcase(s[i]);
Writeln(s);
Readln ;
End.
xin hay nhất
var s: string;
I: byte;
Begin
Write('nhap xau: '); readln(s);
For i:=1 to length(s) do
S[i]:=upcase(s[i]);
Write(s);
Readln
End.
