дана строка ,содержащее слово,записанное через дефис. написать программу ,которая вставляет пробелы перед и после дефиса. помогите пожалуйста!
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад