Написать функцию ,которая удаляет из строки все пробелы .Строка вводится в качестве параметра

[winona]

хелп

[digitalis]

На каком языке? - признание вырывается пытками.

[BDA]

Вместо создания новой темы лучше бы ответили про язык, показали бы наработки.

[digitalis]

А вдруг для человека - новость, что языков программирования >1 ? Или тест для телепатов...

[BDA]

Вряд ли новость. Телепатирую, что C#, VB или VB.NET.

[digitalis]

SmallTalk, PL-I, LISP...

[newerow1989]

function DelProbel(s:string):string;
var i:integer;
begin
   For i:=Length(s) downto 1 do
      If s[i]=' ' then
         Delete(s,i,1);
   Result:=s;
end;

[digitalis]

Вот ещё для коллекции смешной вариант:

function DelBlank(s_arg:string):string;
var i:integer; s: string ;
begin
  s := s_arg ;
  i := Pos(' ',s) ;
  while (i > 0 ) do
    begin
       Delete (s,i,1) ;
       i := Pos(' ',s)
    end ;
   Result:=s;
end;

Только зря это всё: девушке нужно было на ве-бе

[kvitaliy]

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

нужно было на ве-бе

На ве-бе проще всего:

Private Function DelSp(s As String) As String
DelSp = Replace(s, " ", "")
End Function