Дана строка из нескольких слов, разделённых одним или несколькими пробелами.

Напечатать эту строку без избыточных пробелов.

Question

Гермуся

24 июля, 12:35

+2

Ответы (1)

Знаете ответ на вопрос?

Артемчик · Answer 1

Var

s : String;

Begin

{Readln (s) ; }

s:='abcd sf dsf rfg test';

While Pos (' ', s) >0 do Delete (s, Pos (' ', s),1) ;

Writeln (s) ;

end.

Дана строка из нескольких слов, разделённых одним или несколькими пробелами.Напечатать эту строку без избыточных пробелов.