Nhập họ tên của một học sinh.in lên màn hình phần họ và phần tên. Vd input: Nguyen Van Sang Output: Phan ho: Nguyen Phan ten: Sang
1 câu trả lời
var stri: string; i: byte;
begin
write('Nhap ho va ten hoc sinh: ');
readln(stri);
writeln('Phan ho: ',copy(stri,1,pos(' ',stri)));
for i:=length(stri) downto pos(' ',stri) do
if stri[i]=' ' then
begin
writeln('Phan ten: ',copy(stri,i+1,length(stri)));
break;
end;
readln
end.
