0 / 0 / 0
Регистрация: 19.04.2015
Сообщений: 3
1

Вывести те слова строки, которые отличны от последнего слова

20.06.2015, 08:50. Показов 1962. Ответов 1
Метки нет (Все метки)

Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами – запятая, за последним словом – точка. Вывести те слова строки, которые отличны от последнего слова и этих слова симметричны.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2015, 08:50
Ответы с готовыми решениями:

Вывести слова строки, которые отличны от последнего слова, и определить, есть ли в данной строке одинаковые слова
Дана строка, состоящая из слов, разделённых пробелами. Вывести слова этой строки, которые отличны...

Вывести слова строки, которые отличны от последнего слова
Дана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны...

Вывести те слова текста, которые отличны от последнего слова и удовлетворяют заданному свойству
Нужно решить задачу, просто тему пропустил, самому разобраться, что-то не получилось....и если...

Строки. Напечатать те слова, которые отличны от последнего слова и удовлетворяют заданному свойству
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных ...

1
Программист
307 / 182 / 176
Регистрация: 05.12.2013
Сообщений: 683
Записей в блоге: 5
21.06.2015, 03:10 2
Лучший ответ Сообщение было отмечено Stanislav1996 как решение

Решение

Вот тут решение без проверки на симметрию, ее сами добавите:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  s, last, wrd: string;
  i: integer;
begin
  readln(s);
  last:='';
  for i:=length(s) downto 1 do
    if s[i]=',' then begin
      last:=copy(s,i+1,length(s)-i-1);
      break;
    end;
  wrd:='';
  for i:=1 to length(s) do begin
    if s[i]=',' then begin
      if wrd<>last then begin
        {тут добавить проверку на симметрию}
        writeln(wrd);
      end;
      wrd:='';
    end else wrd:=wrd+s[i];
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2015, 03:10

Вывести те слова текста, которые отличны от последнего слова
Общие указания при составлении программ к данной теме: 1.Текст стандартного типа String ввести с...

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

Напечатать все слова послоедовательности, которые отличны от последнего слова
Помогите решить задачу Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых...

Напечатать все слова последовательности, которые отличны от последнего слова
Помогите пожалуйста решить: Дана последовательность, содержащая от 2 до 30 слов, в каждом из...


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

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

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