viết chương trình nhập vào từ bàn phím s in ra màn hình xâu vừa nhập

2 câu trả lời

uses crt;
var s:string;
begin
 clrscr;
  write('nhap xau s:');readln(s);
  write('xau vua nhap la:',s);
 readln
end.

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

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