Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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