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

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

1. program kitu_dau;

   Uses crt;

   var s:string;

   begin

          clrscr;

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

          write(s[1]);

          readln;

   end.

   Bình luận