Вводится строка, состоящая из трёх слов. Слова отделяются друг от друга ровно одним пробелом, в начале и конце строки пробела нет. Поменять местами 1 и 2 слова. Описать функцию: function Zamena(s: String): String

го

program p1;uses crt;var s1,s2,s3,s4:string;a:integer;beginread(s1);a:= Pos(' ',s1);s2:=Copy(s1,1,a-1);Delete(s1,1,a);a:= Pos(' ',s1);s4:=Copy(s1,1,a-1);Delete(s1,1,a);s3:=s4+' '+s2+' '+s1;write(s3);end.

Только теперь программа сожрала ещё больше памяти

спасибо)

да ну это программа очень плохая :(

program p1;uses crt;var s1,s2,s3:string;a:integer;beginread(s1);a:= Pos(' ',s1);s2:=Copy(s1,1,a-1);Delete(s1,1,a);s3:=s1+' ' +s2;write(s3);end. Проверь так ?