Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/17: Рейтинг темы: голосов - 17, средняя оценка - 5.00
Ленка@
0 / 0 / 0
Регистрация: 28.01.2014
Сообщений: 14
1

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного

05.02.2014, 21:06. Просмотров 3306. Ответов 1
Метки нет (Все метки)

Напишите пожалуйста код
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: первая буква слова входит в него еще раз;
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.02.2014, 21:06
Ответы с готовыми решениями:

дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прорисных латинских букв, между соседними словами - запятая, за пос
дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1...

Строка содержит несколько слов, между соседними словами не менее одного пробела, за последним словом – точка. Выбрать все слова, имеющие нечетную длин
Строка содержит несколько слов, между соседними словами не менее одного...

Между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать слова больше 1
Если дана последовательность, содержащая от 2 до 50 слов, в каждом из которых...

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

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

1
CodeR
Фрилансер
3383 / 2784 / 3000
Регистрация: 08.02.2012
Сообщений: 6,822
Записей в блоге: 1
06.02.2014, 09:21 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
24
25
Var s,sl,st:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    s:=s+' ';
    While s[1]=' ' do
     Delete(s,1,1);
    sl:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)>0 do
    Begin
      st:=Copy(s,1,Pos(' ',s)-1);;
      Delete(s,1,Pos(' ',s));
      if (st<>sl)and(Length(st)>1) then
      Begin
        For i:=2 to Length(st) do
         if st[i]=st[1] then 
         Begin
           writeln(st);
           break;
         End;
      End;
    End;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2014, 09:21

последовательность строчных латинских букв
Задана последовательность строчных латинских букв вычислить сколько гласных и...

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

Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных букв, между соседними словами – не менее одного пробела
Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1...


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

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

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