nhập vào họ tên bất kì sau đó chuyển thành xâu chữ hoa
1 câu trả lời
program oken;
uses crt;
const chu = ['a..z'];
var ten: string;
i,k:integer;
begin
clrscr;
write('nhap ho va ten: '); readln(ten);
k:= length(ten);
for i:=1 to k do
if (ten[i] in chu) then ten[i]:= upcase(ten[i]);
write('Xau chu hoa: ');
for i:=1 to k do
write(ten[i]);
readln;
end.
