viết chương trình nhập vàp xâu họ tên. em hãy tách họ trong xâu họ tên vừa nhập
2 câu trả lời
program ho_trongxau;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
write('Nhap ho ten: '); readln(s);
i:=1; st:='';
while s[i]<>' ' do
begin
st:=st+s[i];
i:=i+1;
end;
write('Ho trong xau ho ten la: ',st);
readln
end.
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau ho ten: ');readln(s);
write('Xau ho: ',copy(s,1,pos(' ',s)-1));
readln
end.
