составить программку , которая в тексте удаляет все пробелы.

Составить программу , которая в тексте удаляет все пробелы.

Задать свой вопрос
1 ответ
Program z1;
var st:string; 
begin  
writeln('Введите строчку');
readln(st);   
while (pos(' ',st) lt;gt; 0) do
begin
delete(st, pos(' ',st), 1);        
end;  
writeln(st);  
readln;
end.  
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт