Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Напечатать заданный текст

Автор: -Лена- 10.10.2007 23:36

Напечатать заданый тескт, удалив из него лишние пробелы, т.е. из несколько подряд идущих пробелов оставить только один.

Автор: Айра 11.10.2007 0:00

Вроде так:

var i: integer;
s: string;
begin
writeln('введите строку');
readln(s);
for i:=length(s) downto 2 do
begin
if (s[i]=s[i-1]) and (s[i]=' ') then delete(s,i,1);
end;
writeln(s);
end.

Автор: Гость 13.10.2007 14:05

Спасибо огромное. Очень помогла.