Question

Pascal Ввести текст, состоящий не менее чем из 12 слов. Из текста выделить все слова, которые начинаются с того же символа, с которого начинается последнее слово заданного текста.

Answer 1

// PascalABC.NET

begin

 var a := ReadString.ToWords;

 if a.Length < 12 then Print('Введено меньше 12 слов')

 else

 begin

   var c := a.Last.ToCharArray.Last;

   a.Where(p -> p.First = c).Print

 end

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который выполняет указанную вами задачу:

pascalCopy code
program MatchWords;

var
  text: string;
  words: array of string;
  lastChar: char;
  i, count: integer;

begin
  writeln('Введите текст:');
  readln(text);

  // Разбиваем текст на слова
  SetLength(words, 0);
  lastChar := text[length(text)];

  i := 1;
  while i <= length(text) do
  begin
    while (i <= length(text)) and (text[i] = ' ') do
      i := i + 1;
      
    if i <= length(text) then
    begin
      SetLength(words, length(words) + 1);
      words[length(words)] := '';

      while (i <= length(text)) and (text[i] <> ' ') do
      begin
        words[length(words)] := words[length(words)] + text[i];
        i := i + 1;
      end;
    end;
  end;

  // Выводим слова, начинающиеся с последней буквы
  writeln('Слова, начинающиеся с "', lastChar, '":');
  count := 0;
  for i := 0 to High(words) do
  begin
    if words[i] <> '' then
    begin
      if words[i][1] = lastChar then
      begin
        writeln(words[i]);
        count := count + 1;
      end;
    end;
  end;

  if count = 0 then
    writeln('Таких слов нет.');

  readln;
end.

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