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

Question

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

Answer 1

Program z1;
var st:string; 
begin  
writeln('Введите строку');
readln(st);   
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);        
end;  
writeln(st);  
readln;
end.