Dacholsac
5 год назад
Пожалуйста, Пожалуйста посчитайте решить задачу по информатике через PascalABC.Дана строка, содержащая дефис (например: город-герой). Поменяйте 2 слова между собой,чтобы получилось наоборот (герой-город).Заранее спасибо.
ОТВЕТЫ
Стоян
Oct 24, 2020
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.
Пример:
город-герой
герой-город
begin
readln(s);
l:=length(s);
p:=pos('-',s);
s:=copy(s,p+1,l-p)+'-'+copy(s,1,p-1);
writeln(s);
end.
Пример:
город-герой
герой-город
857
Смежные вопросы:
