Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дана строка ,содержащее слово,записанное через дефис. написать программу ,которая вставляет пробелы перед и после дефиса. помогите пожалуйста!

Ответ оставил Гость

Var s: string;
    i: integer;
begin
   write(строка:  );
   readln(s);     i:=1;
   while i<=length(s) do
   begin
     if s[i]=- then
     begin
       s:=copy(s,1,i-1)+ +s[i]+ +
       copy(s,i+1,length(s)-i+3);
       i:=i+2;
    end;
    i:=i+1;
  end;
  writeln(новая строка:  ,s);
end.