Строковый тип

[Koshmarick]

Помогите пожалуйста.
Все пробелы переместить в начало строки. Решить задачу с использованием и без использования дополнительных строковых переменных.
Горю по полной.

PS Сильно не ругайтесь, я ведь всего лишь бухгалтер.

[SERG1980]

var S:string;
    n,i:integer;
begin
 n:=0;
 s:='asd dfsd sdfsdf sfgsf ';
 while Pos(' ',s)>0 do
 begin
  Delete(S,Pos(' ',s),1);
  inc(n);
 end;
 for i:=1 to n do s:=' '+s;

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

ну а с использованием доп переменной

s1:='';
for i:=1 to length(s) do
if s[i]=' ' then s1:=s1+s[i];
for i:=1 to length(s) do
if s[i]<>' ' then s1:=s1+s[i]; 
writeln(s1);

[Stilet]

Господа, а с чего вы взяли что это в паскале? Мож в 1С автору нужно?

[Utkin]

Сообщение от Stilet

Господа, а с чего вы взяли что это в паскале? Мож в 1С автору нужно?

Или просто на бейсике, врядли в 1С, обычно бухгалтера для 1С нанимают стороннюю обслуживающую контору.

[Koshmarick]

Да,да именно в Pascal-е!
Дело в том чтоб не загреметь с работы нужно 2-ое высшее ( а по первому я гуманитарий. Сей час поступил на прикладную информатику в экономике.
Ну мне и дали 39 заданий по паскалю. Со многими уже разобрался. Паскаль учу всего третий день.
PS А в конторе у нас Парус7. Справляюсь сам без сторонних контор. (Ну разве что лицензию продлить)

[Stilet]

Ну так в следующий раз язык то указывай, или в соответствующую ветку форума пиши.

[VintProg]

Все пробелы переместить в начало строки

 s:='asd dfsd sdfsdf sfgsf '

Чтобы было вот так?

'    asddfsdsdfsdfsfgsf '

вот:

procedure TForm1.Button1Click(Sender: TObject);
var
 s : string;
 b : string;
 i : integer;

begin
 s:='asd dfsd sdfsdf sfgsf';
 i := 0;
 b := '';

while i < Length(s) do
    begin

      if s[i] = ' ' then
         begin
           delete(s,i,1);
           b := b + ' ';
         end;

      inc(i);
    end;

edit1.Text := b + s;
end;

[SERG1980]

Для паскаля

uses crt;
var S:string;
   i:integer;
BEGIN
 clrscr;
 writeln('Vvedite stroky');
 readln(s);
 for i:=1 to length(s) do
 if s[i]=' ' then
 begin
  delete(s,i,1);
  s:=' '+s;
 end;
 writeln('rezultat:-',s);
 readln;
END.