Если фамилия, имя и отчество вводятся через пробел, то задачу можно решить так: var s,f,i:string; begin writeln('Введите ФИО'); readln(s); f:=copy(s,1,pos(' ',s)-1); writeln(f); delete(s,1,pos(' ',s)); i:=copy(s,1,pos(' ',s)-1); writeln(i); delete(s,1,pos(' ',s)); writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
