Question

ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! Составьте программу, которая позволяет удалить лишние пробелы в строке s, оставив по одному пробелу между словами. Строку s, состоящую из слов, разделённых пробеламі, введите с клавиатуры.

Answer 1

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

Пример:
Введите строку:
Строку    s   введите с    клавиатуры.
Строку s введите с клавиатуры.