Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trung Nguyễn

Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa

Lê Đình Quý
16 tháng 3 2023 lúc 21:26

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.


Các câu hỏi tương tự
Đinh Đức Quảng
Xem chi tiết
Phạm Hào
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Ngọc Ánh Phùng
Xem chi tiết
Nguyễn Nhật Lệ
Xem chi tiết
Nguyễn Thị Mỹ Tiền
Xem chi tiết
Hoàng Đào
Xem chi tiết
Minh Hậu Ngô
Xem chi tiết
Lương Ngọc Anh
Xem chi tiết