Написать программку, которая прибавляет пробелы в строчку.(То есть: Если в тексте есть

Написать программу, которая добавляет пробелы в строчку.(То есть: Если в тексте есть символ препинания ., ,, ! либо ?, и после отсутствует пробел)

Задать свой вопрос
1 ответ
Var
  s1,s2:string;
  i,k:integer;
begin
readln(s1);
k:=length(s1)-1;
s2:='';
for i:=1 to k do
  begin
    s2:=s2+s1[i];
    case s1[i] of
      '.',',','!','?':
        if s1[i+1]lt;gt;' ' then s2:=s2+' ';
    end;
  end;
s2:=s2+s1[k+1];
writeln(s2)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт