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
2 câu trả lời
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.
uses crt;
var s,st:string;
begin
clrscr;
readln(s); st:='';
while s[length(s)]<>' ' do
begin
st:=s[length(s)]+st;
delete(s,length(s),1);
end;
write(st);
readln;
end.
