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 20/07/2021 Bởi Hadley 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
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. Bình luận
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. Bình luận
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.
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.