Question

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

Answer 1

Ответ: короч напиши 78 -*dox33

Объяснение:

Answer 2

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

1. Программа для удаления повторяющихся слов нечетной длины из текста:

pascalCopy code
program RemoveDuplicateWords;

uses
  SysUtils, StrUtils;

procedure RemoveDuplicates(var text: string);
var
  words: TStringDynArray;
  uniqueWords: TStringList;
  word: string;
  i: Integer;
begin
  words := SplitString(text, ' ');
  uniqueWords := TStringList.Create;
  
  try
    for i := 0 to Length(words) - 1 do
    begin
      word := words[i];
      if (Length(word) mod 2 = 1) and (uniqueWords.IndexOf(word) = -1) then
        uniqueWords.Add(word);
    end;
    
    text := StringReplace(text, '  ', ' ', [rfReplaceAll]);
    for i := 0 to uniqueWords.Count - 1 do
    begin
      word := uniqueWords[i];
      text := StringReplace(text, ' ' + word + ' ', ' ', [rfReplaceAll]);
    end;
    
    text := Trim(text);
  finally
    uniqueWords.Free;
  end;
end;

var
  inputText: string;
begin
  writeln('Введите текст:');
  readln(inputText);
  
  RemoveDuplicates(inputText);
  
  writeln('Текст после удаления повторяющихся слов нечетной длины:');
  writeln(inputText);
end.

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

pascalCopy code
program AddFirstLetter;

uses
  SysUtils, StrUtils;

procedure AddFirstLetter(var text: string);
var
  words: TStringDynArray;
  lastWord: string;
  modifiedText: string;
  i: Integer;
begin
  words := SplitString(text, ' ');
  lastWord := words[Length(words) - 1];
  
  modifiedText := '';
  for i := 0 to Length(words) - 2 do
  begin
    modifiedText := modifiedText + lastWord[1] + words[i] + ' ';
  end;
  
  modifiedText := modifiedText + lastWord[1] + words[Length(words) - 1];
  
  text := modifiedText;
end;

var
  inputText: string;
begin
  writeln('Введите текст:');
  readln(inputText);
  
  AddFirstLetter(inputText);
  
  writeln('Текст с добавленной первой буквой последнего слова:');
  writeln(inputText);
end.

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