Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Ви5Кторинка
1 / 1 / 0
Регистрация: 19.01.2012
Сообщений: 23
1

Удалить группы пробелов, которыми начинается и заканчивается последовательность

13.02.2012, 18:52. Просмотров 719. Ответов 1
Метки нет (Все метки)

Дан текст. Преобразовать его следующим образом: удалить группы пробелов, которыми начинается и заканчивается последовательность, а также заменить каждую внутреннюю группу пробелов одним пробелом. Если указанных групп нет в данном тексте, то оставить его без изменений.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2012, 18:52
Ответы с готовыми решениями:

число начинается и заканчивается одной цифрой
Помогите дописать... задание :Найти сумму цифр числа. (это записано)...

Определить, сколько слов начинается и заканчивается на букву 'А'
блин я где-то на форуме видел эту похожую тему токо найти не могу помогите...

Дано последовательность натуральных чисел, которая заканчивается нулем. Проверить, есть ли последовательность растущей.
3. Дано последовательность натуральных чисел, которая заканчивается нулем....

Определите, сколько слов в предложении начинается и заканчивается на одну и ту же букву
с клавиатуры вводится предложение в котором слова разделены пробелами....

Узнать что число заканчивается и начинается на одну и туже цифру
Дано трёхзначное число,узнать что оно заканчивается и начинается на одну и туже...

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
13.02.2012, 21:00 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var s: string;
    i: integer;
begin
write('s=');
readln(s);
i:=1;
while s[i]=' ' do
      delete(s,1,1);
i:=length(s);
while s[i]=' ' do
      begin
      delete(s,length(s),1);
      i:=length(s);
      end;
for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]=' ') then
       begin
       delete(s,i+1,1);
       dec(i);
       end;
write('s=',s);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2012, 21:00

Дано натуральное число. Верно ли, что оно начинается и заканчивается одинаковыми цифрами?
Дано натуральное число. Верно ли, что оно начинается и заканчивается...

Определить, верно ли, что данное слово начинается и заканчивается на одну и туже букву
Дано слово.Верно ли что оно начинается и заканчивается на одну и туже букву?

Верно ли, что первое слово начинается на ту же букву, на которую заканчивается второе слово
Даны два слова.Верно ли, что первое слово начинается на ту же букву, на которую...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru