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

Question

ПАСКАЛЬ
Ввести имя, отчество и фамилию. Поменять имя и отчество местами (через тип данных string) "Отчество, имя и фамилия"
Ни типо пишешь в графу: юрий сергеевич кобылкин, а оно исправляет на сергеевич юрий кобылкин

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToWords;
  Swap(a[0],a[1]); a.Println
end.

Comments

Уважаемый будьте так любезны написать код на 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.