a) viết chương trình nhập vào một xâu S b) hãy chuyển các kí tự chữ cái trong xâu S thành chữ cái in hoa
2 câu trả lời
program sau_ky_tu
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.
uses crt;
var s:string;
begin
clrscr;
readln(s);
writeln(length(s));
writeln(upcase(s));
readln;
end.
