Question

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

Answer 1

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

begin
  ReadlnString.ToWords.JoinIntoString(' ').Println
end.

Answer 2

Uses crt;
var s:string; k,i,dl:integer;
begin
writeln('Введите строку: ');
readln(s);
k:=0;
i:=1;
dl:=length(s);
while i<dl do
begin
if s[i]<>' ' 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.

Answer 3

Для решения этой задачи, нужно прочитать ввод с клавиатуры, удалить все лишние пробелы из предложения и вывести новое предложение. Лишние пробелы - это пробелы, которые находятся между словами и после последнего слова.

Допустим, пользователь ввел предложение, состоящее из 60 символов, сохраненное в переменной input_sentence. Затем можно использовать функцию или метод для удаления лишних пробелов. Например, в Python это можно сделать так:

pythonCopy code
# Ввод предложения с клавиатуры
input_sentence = input("Введите предложение (60 символов): ")

# Удаление лишних пробелов из предложения
cleaned_sentence = " ".join(input_sentence.split())

# Вывод нового предложения без лишних пробелов
print("Новое предложение без лишних пробелов:")
print(cleaned_sentence)

Обратите внимание, что здесь мы используем метод split() для разделения предложения на отдельные слова и потом метод join() для объединения слов с помощью одного пробела между ними. Это позволяет удалить все лишние пробелы и получить новое предложение без них.