Nhập vào 1 xâu .Đưa ra màn hình ký tự đầu tiên của xâu đó

2 câu trả lời

uses crt;
 var a:string;
  begin
   clrscr;
    readln(a);
      writeln(a[1]);
      end.

program kitu_dau;

Uses crt;

var s:string;

begin

       clrscr;

       write('Nhap xau: ');  readln(S);

       write(s[1]);

       readln;

end.

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