Cho xâu kí tự X có độ dài tối đa là 50. Hãy viết lệnh: a) Khai báo biến xâu b) Nhập xâu X

1 câu trả lời

uses    crt;
var     s:string[50]; // Khai báo biến sau có độ dài tối đa 50
begin
        clrscr;
        readln(s); // Nhập xâu
        writeln(s); // Xuất xâu(cái này bạn có thể bỏ)
        readln
end.

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