Создание программы . Ввести фамилию имя отчество как одно текстовое данное. Вывести...

Question

Создание программы . Ввести фамилию имя отчество как одно текстовое данное. Вывести фамилия имя отчество в отдельных строках .

Answer 1

Если фамилия, имя и отчество вводятся через пробел, то задачу можно решить так:
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.