Текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины

@Shepard_1998 · Регистрация: 15.04.2017

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

Pascal

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];
var
  s,max,temp:string;
  i:integer;
begin
  clrscr;
  writeln('Введите строку...');
  readln(s);
  temp:='';
  max:='';
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
      if temp<>'' then
      begin
        if length(temp)>length(max) then
          max:=temp;
        temp:='';
      end;
  end;
  writeln('Самое длинное слово: ',max,'. В нём букв: ',length(max));
  writeln('',max[length(max)]);
end.

@ZX Spectrum-128 · 04.12.2018, 18:25

3.Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.

https://www.cyberforum.ru/announcement.php?a=3

@Shepard_1998 · 05.12.2018, 12:55 **[ТС]**

Да, и забыл добавить: Строка должна вводиться с клавиатуры. Полученная строка и другие элементы должны выводиться на экран.

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	04.12.2018, 18:25	2
	3.Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят. https://www.cyberforum.ru/announcement.php?a=3 0

@Shepard_1998 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 83
	05.12.2018, 12:55 [ТС]	3
	Да, и забыл добавить: Строка должна вводиться с клавиатуры. Полученная строка и другие элементы должны выводиться на экран. 0

Опции темы