Пожалуйста, помогите решить задачу по информатике через PascalABC.
Дана строка, содержащая дефис (например: город-герой). Поменяйте 2 слова между собой,
чтобы получилось наоборот (герой-город).
Заранее спасибо.
Дана строка, содержащая дефис (например: город-герой). Поменяйте 2 слова между собой,
чтобы получилось наоборот (герой-город).
Заранее спасибо.
Answers & Comments
Verified answer
Var s:string; l,p:integer;begin
readln(s);
l:=length(s);
p:=pos('-',s);
s:=copy(s,p+1,l-p)+'-'+copy(s,1,p-1);
writeln(s);
end.
Пример:
город-герой
герой-город
Версия 3.3. сборка 1583 (25.11.2017)
var s,s1,s2: string;
begin
write('s='); readln(s);
s1:=copy(s,1,pos('-',s)-1);
s2:=copy(s,pos('-',s)+1,length(s)-pos('-',s));
write('s=',s2+'-'+s1);
end.