Предмет: Информатика, автор: AngelinaSuhonosova

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

Рузкый: Copy, Pos, Delete использовать можно ?

Рузкый: извините )) за отсебятину

AngelinaSuhonosova: с ними и нужно)

Рузкый: программа на Паскале нужна ?

AngelinaSuhonosova: дя

Рузкый: ок

Ответы

Автор ответа: Рузкый

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

AngelinaSuhonosova: так

AngelinaSuhonosova: не поняла

AngelinaSuhonosova: в вашей программе второй слово переходит на первое, третье на второе, а первое уходит на третье место\

AngelinaSuhonosova: программа неправильная...

Рузкый: извините не то скинул это программа была как краш тест могу скинуть доработанную :)

AngelinaSuhonosova: го

Рузкый: program p1;
uses crt;
var s1,s2,s3,s4:string;
a:integer;
begin
read(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.

Рузкый: Только теперь программа сожрала ещё больше памяти

AngelinaSuhonosova: спасибо)

Рузкый: да ну это программа очень плохая :(