создание программы . Ввести фамилию имя отчество как одно текстовое данное. Вывести фамилия имя отчество в отдельных строках .
Ответы на вопрос
Ответил petyaGavrikov
0
Если фамилия, имя и отчество вводятся через пробел, то задачу можно решить так:
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.
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.
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Математика,
9 лет назад
Алгебра,
9 лет назад
Биология,
10 лет назад