Viết chương trình chuyển xâu'Hello' thành 'HELLO'!
2 câu trả lời
program
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
write(s);
readln;
end.
Xin hay nhất .
program in_hoa;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
write(s);
readln;
end.
