Question

Дана строка. Удалить из нее все пробелы. Программа Паскаль

Answer 1

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

Пример:
Введите строку:
Удалить из нее все пробелы. 
Удалитьизнеевсепробелы.