BÀI 5: 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.

0 bình luận về “BÀI 5: 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.”

1. Program bt;

   Uses crt;

   Var s,st:string;

   Begin

   Write(‘nhap xau s: ‘); readln(s);

   St:=upcase(s);

   Write(st);

   Readln;

   End.

   Bình luận

2. uses crt;  {nếu muốn thì bạn có thể viết program ở phía tên}

   var s,str:string;

   begin

   clrscr;

   write(‘nhap xau s’);

   readln(s);

   str:=upcase(s);

   write(‘xau luc sau la:’,str);

   readln;

   end.

   Bình luận