Tách từ đầu tiên ra khỏi 1 xâu kí tự cho trước .̣pascal

0 bình luận về “Tách từ đầu tiên ra khỏi 1 xâu kí tự cho trước .̣pascal”

1. program tudautien;

   uses crt;

   var st,st2:string;

         i:byte;

   begin

        clrscr;

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

        st2:=st[1];   i:=2;

        while st[i]<>’ ‘ do

             begin

                  st2:=st2+st[i];

                  i:=i+1;

             end;

        write(‘Tu dau tien la: ‘,st2);

        readln;

   end.

   Bình luận