- Để tạo được xâu họ từ xâu họ tên, bạn dùng vòng lặp While chạy từ đầu xâu về cuối xâu và kiểm tra kí tự nào của xâu là khoảng cách thì dừng lại và dùng hàm Copy để tạo xâu họ.
- Đối với xâu tên thì tương tự nhưng cho vòng lặp chạy ngược. Sau đây là chương trình:
Program Tao_Xau_Ho_Ten;
Var HT, H, T :String;
VT,SL, i : Byte;
Begin
Write('Nhap Ho va Ten 1 nguoi :'); Readln(HT);
i:=1; SL:=0;
While HT[i]<>' ' do
Begin
SL:=SL+1;
i:=i+1;
End;
H:=Copy(HT,1,SL);
i:=Length(HT); SL:=0;
While HT[i]<>' ' do
Begin
SL:=SL+1;
i:=i -1;
End;
VT:=Length(HT) - SL +1;
T := Copy(HT,VT,SL);
Writeln('Ho la :',H);
Writeln('Ten la :,T);
Readln
End.
--------------------------------

Dạ cách này cũng hay ạ nhưng có cách giải bài này với mảng k ạ

ai giai giup em voi