В заданной строке заменить подряд идущие пробелы на один пробел - Pascal ABC
Формулировка задачи:
Написать программу: В заданной строке заменить подряд идущие пробелы на один пробел
Решение задачи: «В заданной строке заменить подряд идущие пробелы на один пробел»
textual
Листинг программы
var
str : string;
p: integer;
begin
Write('vvod stroki');
readln(str);
repeat
P := Pos(' ', str);
Delete(str, p, 1)
until p =0;
writeln(str);
end.