Viết chương trình nhập vào một xâu kí tự bất kỳ (toàn chữ cái). Sau đó, in ra xâu này nhưng đã được viết hoa toàn bộ các kí tự. Vd: pham thu ha PHAM TU HA ABCD ABCD Abcd ABCD
2 câu trả lời
uses crt;
var S : string; i : byte;
begin
clrscr;
write('Nhap xau : '); readln(S);
write('Xau moi : ');
for i := 1 to length(S) do write(upcase(s[i]));
readln
end.
program bai_giai;
uses crt;
var s:string;i:longint;
begin
clrscr;
write('nhap xau s:');readln(s);
for i:=1 to length(s) do s[i]:=upcase(s[i]);
write(s);
readln
end.
Câu hỏi trong lớp
Xem thêm
