С клавиатуры вводится предложение, состоящее из 60 символов. Сконструировать и вывести

С клавиатуры вводится предложение, состоящее из 60 символов. Сконструировать и вывести новое предложение, удалив из начального все излишние пробелы.

Задать свой вопрос
2 ответа
PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  ReadlnString.ToWords.JoinIntoString(' ').Println
end.
Uses crt;
var s:string; k,i,dl:integer;
begin
writeln('Введите строчку: ');
readln(s);
k:=0;
i:=1;
dl:=length(s);
while ilt;dl do
begin
if s[i]lt;gt;' ' then i:=i+1;
if s[i]=' ' then i:=i+1;
while s[i]=' ' do
delete (s,i,1);
if ((s[i]='?') or (s[i]='!') or (s[i]='.') or (s[i]=':') or (s[i]='-')or(s[i]=',')) and (s[i-1]=' ')
then
begin
delete (s,i-1,1);
end;
dl:=length(s);
end;
writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт