как в строке вставить n-ое количество пробелов

[Marinka91]

как в строке вставить n-ое количество пробелов????после каждого слова???

[Stilet]

Так пойдет?

   var s:string;k,i,n:integer;
begin
 s:='My Oh My';    n:=5;
 i:=1; while length(s)>=i do begin
  while (length(s)>=i)and(s[i]<>' ') do inc(i);
  for k:=1 to n do insert(' ',s,i);
  inc(i,n+1);
 end;
 write(s);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Doholyan]

writeln(' ***** ', ' (пробелы ) ' ,' ****** ');

[Doholyan]

Stilet
___________
Дружище смотри проще на мир!))))

[puporev]

после каждого слова???

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

writeln(' ***** ', ' (пробелы ) ' ,' ****** ');

видимо шутка такой?

[ОДИНОЧЕСТВО В СЕТИ]

вот еще:

var
  s,s1:string;
  i,k,n:integer;
begin
clrscr;
writeln('input string');
readln(s);
writeln('input n');
readln(n);
s1:='';
for i:=1 to length(s) do
  if s[i]=' ' then begin
    for k:=1 to n do
      s1:=s1+' ';
  end
  else s1:=s1+s[i];
 clrscr;
 writeln('old string :',s);
 Writeln('new string :',s1);
 readln;
 end.

[puporev]

как в строке вставить n-ое количество пробелов????после каждого слова???

Строка 111,222,333,444. Вставьте, используя свой код.

[Doholyan]

puporev
________
Marinka91 у этого пользывателя четвертое сообщения....и, не думаю что там речь идеть о квантовой физике(утрирую).

writeln(' ***** ', ' (пробелы ) ' ,' ****** '); почему посчитал это шутка?
я так пользывался просто и удобно...и наглядно))

[puporev]

я так пользывался просто и удобно...и наглядно))

Не спорю, это нормально когда вводишь текст, но нужно же вставить пробелы в заданную строку.

[Anatole]

Stilet

Так пойдет?

Не-а. Знаки неравенства нужно поставить в другую сторону.
Извините сморозил Чушь. Я обычно это условие записываю наоборот