ПАСКАЛЬВвести имя, отчество и фамилию. Поменять имя и отчество местами (через

Уважаемый будьте так ласковы написать код на free pascal!

Почетаемый, необходимо указывать желанный диалект в вопросе, а не после получения ответа! Обучайтесь почитать чужой труд, несмотря на то, что его результаты Для вас достаются безвозмездно.

Труд написать 2 строки?

И по предлогу результатов 25 баллов

В данной ситуации Вы не имеете права рассуждать о чужом труде уже хотя бы поэтому, что сами неспособны эти две строчки ни написать, ни осознать, как сейчас выяснилось. И ведете себя при этом, как зарвавшийся нахал.

Добропорядочные люди, получив ответ, даже если он не подходит их ожиданиям (по их своей вине) разговаривают "спасибо".

Да какие задачи?

var s, fam, im, ot: string; k: integer;begin readln(s); //s := 'Иванов Иван Иванович'; writeln('Длина: ', Length(s)); k := pos(' ', s); fam := copy(s, 1, k); delete(s, 1, k); k := pos(' ', s); im := copy(s, 1, k); delete(s, 1, k); ot := s; writeln('Отчество: ', ot); writeln('Имя: ', im); writeln('Фамилия: ', fam);end.

Уважаемый будьте так ласковы написать код на free pascal!

Почетаемый, необходимо указывать желанный диалект в вопросе, а не после получения ответа! Учитесь почитать чужой труд, невзирая на то, что его результаты Вам достаются безвозмездно.

Труд написать 2 строки?

И по предлогу результатов 25 баллов

В данной ситуации Вы не имеете права рассуждать о чужом труде уже желая бы потому, что сами неспособны эти две строки ни написать, ни осознать, как сейчас выяснилось. И ведете себя при этом, как зарвавшийся нахал.

Порядочные люди, получив ответ, даже если он не соответствует их ожиданиям (по их своей вине) разговаривают "спасибо".

Да какие трудности?

var s, fam, im, ot: string; k: integer;begin readln(s); //s := 'Иванов Иван Иванович'; writeln('Длина: ', Length(s)); k := pos(' ', s); fam := copy(s, 1, k); delete(s, 1, k); k := pos(' ', s); im := copy(s, 1, k); delete(s, 1, k); ot := s; writeln('Отчество: ', ot); writeln('Имя: ', im); writeln('Фамилия: ', fam);end.