Паскаль Ребят, подскажите с помощью какой функции можно объединить несколько слов в одно? например Я ходила в лес чтоб в результате было Яходилавлес
Answers & Comments
magica
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(переменная)". Если есть вопросы, пиши.
Answers & Comments
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(переменная)". Если есть вопросы, пиши.