Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Вывести...

Question

Дана
строка, состоящая из слов, разделенных пробелами (одним или несколькими).
Вывести строку, содержащую эти же слова, разделенные одним пробелом

Answer 1

Var
  i:integer;
  s,t:string;
  f:boolean;
begin
writeln ('Введите строку');
readln(s);
f:=false;
for i:=1 to length(s) do
  begin
  if (f=false) or (s[i]<>' ') then
    begin
    t:=t+s[i];
    if s[i]=' ' then
      f:=true
      else f:=false;
    end;
  end;
writeln(t);
end.