Паскаль
Заполните пропуски в фрагменте программы, который заменяет несколько подряд идущих пробелов на один пробел.
p:=pos(' ',s);
while p... do
begin
delete(...);
insert(...);
p:=pos(...);
end;
Например, строка 'abc def gh' будет преобразована в строку 'abc def gh'

з1з1 з1з1    1   10.05.2020 00:52    0

Ответы
Anastasya156 Anastasya156  06.09.2020 08:30
ответ:

p:=pos('  ',s);

while p<>0 do

begin

delete(s, p, 2);

insert(' ',s,p);

p:=pos('  ',s);

end;

Пример:
Паскаль Заполните пропуски в фрагменте программы, который заменяет несколько подряд идущих пробелов
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика