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

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.

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

Comments

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

---

Пожалуйста.

Answer 2

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.