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

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

Question

Эмка

30 июля, 11:18

+3

Ответы (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.

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