Паскаль
Ребят, подскажите с помощью какой функции можно объединить несколько слов в одно?
например
Я ходила в лес
чтоб в результате было
Яходилавлес

1

Ответы и объяснения

2014-03-20T17:58:20+00:00
Function dellprobels(s: string):string;
var
i: integer;
begin
i:=1;
while i<>length(s) do
 if s[i]=' ' then delete(s, i, 1) else inc(i);
dellprobels:=s;
end;

Вот эту функцию добавляешь в начало программы. Обращаться к ней: "dellprobels(переменная)". Если есть вопросы, пиши.