Viết chương trình nhập vào xâu S gồm các kí tự thường và hoa. Đưa ra màn hình xâu S sau khi chuyển các ký tự sang in hoa

2 câu trả lời

uses crt;
var s:string;
begin
clrscr;
   readln(s);
   write(upcase(s));
readln
end.

program in_hoa;

uses crt;

var s: string;

      i: byte;

Begin

         clrscr;

         write('Nhap xau: '); readln(s);

         for i:=1 to length(s) do s(i):=upcase(s[i]);

         write('Xau in: ',s);

         readln

End.

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