Дана строка , удалить из строки символы пробела.Помогите пожалуйста!

Question

Дана строка , удалить из строки символы пробела.Помогите пожалуйста!

Answer 1

 uses crt;
 var  s :String; 
       i,l :integer;
 begin 
   write ('Введите строку: '); 
   readln(s); 
   for i:=1 to Length(s) do   
     if s[i]=' ' then Delete(s,i,1); 
   writeln(s); 
end.

Comments

спасибо большое Вы мне очень сильно помогли!)

---

Не за что! Обращайтесь ;)

---

спасибо!