Viết chương trình nhập tên 1 xâu. Tách phần tên của xâu vừa nhập

0 bình luận về “Viết chương trình nhập tên 1 xâu. Tách phần tên của xâu vừa nhập”

1. var str,kq:string; i: byte;
   begin
       write(‘Nhap chuoi ho ten: ‘);
       readln(str);
       i:=length(str);
       while (i>1) and (str[i]<>’ ‘) do
           i:=i-1;
       kq:=copy(str,i,length(str)-i+1);
       write(‘Ket qua: ‘,kq);
       readln
   end.

   Trả lời