Question

Пожалуйста, помогите решить задачу по информатике через PascalABC.

Дана строка, содержащая дефис (например: город-герой). Поменяйте 2 слова между собой,
чтобы получилось наоборот (герой-город).

Заранее спасибо.

Answer 1

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.

Пример:
город-герой
герой-город

Answer 2

Спасибо вам огромное!

Answer 3

Пожалуйста.

Answer 4

PascalABC.NET
Версия 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.