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
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
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.
