Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
yushimitsu
0 / 0 / 0
Регистрация: 27.11.2014
Сообщений: 7
1

Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста

29.12.2014, 18:39. Просмотров 1102. Ответов 1
Метки нет (Все метки)

Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова представляют собой произвольную последовательность символов, отличных от пробела. Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста.

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

Напечатайте все слова, которые состоят из тех же литер, что и последнее
Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова...

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

Удалить из файла все слова,которые состоят из одних и тех же букв
Дан текстовый файл f.Удалить из файлы все слова,которые состоят из одних и тех же букв. Вот что я...

Вывести все слова заданного текста, состоящие из тех же букв, что и первое слово
Заранее Большое Спасибо!!!

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

1
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
30.12.2014, 13:31 2
Лучший ответ Сообщение было отмечено yushimitsu как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  ls,cs,s,ss:string;
  i,j:integer;
  b:boolean;
begin
  write('BBeguTe TekcT:');readln(s);
  for i:=length(s) downto 1 do
    if s[i]=#32 then break;
    ls:=copy(s,i+1,length(S)-i);
  repeat
    cs:=copy(s,1,pos(#32,s)-1);ss:=cs;
    delete(s,1,pos(#32,s));
    for i:=1 to length(ls) do  while pos(ls[i],ss)>0 do delete(ss,pos(ls[i],ss),1);
    if ss='' then writeln(cs);
  until s=ls;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2014, 13:31

Распечатать все слова строки, которые начинаются на ту же букву, что и слово минимальной длины (последнее по порядку)
Распечатать все слова строки, которые начинаются на ту же букву, что и слово минимальной длины...

Вывести те слова, которые начинаются на ту же букву, что и последнее слово.
И вот эту еще!! Очень нужна помощь! дана символьная строка, содержащая последовательность слов,...

Перечислить все числа заданной последовательности, которые состоят из тех же цифр, что и первое число
Перечислить все числа заданной последовательности чисел ,которые состоят из тех же цифр ,что и...


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

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

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