Viết chương trình nhập vào 1 xâu bất kì từ bàn phím. In xâu đó ra màn hình

2 câu trả lời

uese crt;

var t:string;

begin

clrscr;

writeln('Nhap xau:'); readln(t);

writeln('Xau vua nhap la:');

write(t);

readln;

end.

program oken;
uses crt;
var s: string;
begin
    clrscr;
    write('Nhap 1 xau: '); readln(s);
    writeln('xau vua nhap: ',s);
    readln;
end.

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