Задача D. Лишние пробелы Минимизировать количество пробелов в данной строке. В

Задача D. Лишние пробелы Минимизировать количество пробелов в заданной строке. В этой задачке нужно написать программку , которая убирает излишние пробелы. Излишние - это начальные и окончательные пробелы строчки а также те которые идут попорядку . Необходимо бросить из группы пробелов только один. ПРИМЕР. Строка: ааа rrr hhhh итог: ааа rrr hhhh

Задать свой вопрос
1 ответ

Program Pr1;
uses crt;
var stroka:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do begin
if stroka[i]=' ' then delete(stroka,i,1)
else break;
end;
if stroka[length(stroka)]=' ' then delete(stroka,length(stroka),1);
for i:=1 to length(stroka) do if (stroka[i]=' ') and (stroka[i+1]=' ') then delete(stroka,i,1);
writeln(stroka);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт