BÀI 10: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó dưới dạng in hoa
2 câu trả lời
Program Xau;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap xau: '); Readln(St);
For i:=1 to length(St) do
St[i] := Upcase(St[i]);
Write('St = ',St);
Readln
End.
program bt2;
uses crt;
var s,st:string;
i:integer;
begin
clrscr;
read(S);
for i:=1 to length(S) do st:=st+upcase(S[i]);
writeln(st);
readln;
readln;
end.