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

Question

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

Comments

На каком языке?

---

Паскаль АБС

---

Точнее. PascalABC.NET или просто PascalABC. От этого зависит простота решения

---

PascalABC.NET

Answer 1

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('>').ToWords.JoinIntoString;
  s.Println;
end.

Пример
>     А   роза   упала на     лапу    Азора
А роза упала на лапу Азора

Answer 2

Uses System;
uses System.Linq;var s: array of string;
a: string;
i, x: integer;begin
readln(a);
s := a.Split();
for i := 0 to s.Length - 1 do
  if (s[i].Length <> 0) then
    write(s[i] + ' ');
end.

Comments

Для любой пойдут