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.

Câu hỏi trong lớp Xem thêm