Question

Решите пожалуйста задачу PascalABC Дана последовательность слов. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующим условиям: а)в слове нет повторяющихся букв; б) слово симметрично

Answer 1

begin

 var a:=ReadlnString.ToWords;

 a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Println

end.

Пример

vanitas vanitatum et omnia vanitas

vanitatum

Где сама последовательность?

Answer 2

Конечно, я помогу вам решить задачу на языке PascalABC. Вот пример программы, которая решает данную задачу:

pascalCopy code
program WordSequence;
uses SysUtils;

function IsSymmetric(word: string): boolean;
var
  i: integer;
begin
  for i := 1 to Length(word) div 2 do
  begin
    if word[i] <> word[Length(word) - i + 1] then
    begin
      Result := false;
      Exit;
    end;
  end;
  Result := true;
end;

function HasDuplicateLetters(word: string): boolean;
var
  i, j: integer;
begin
  for i := 1 to Length(word) - 1 do
  begin
    for j := i + 1 to Length(word) do
    begin
      if word[i] = word[j] then
      begin
        Result := true;
        Exit;
      end;
    end;
  end;
  Result := false;
end;

var
  wordSequence: array of string;
  firstWord: string;
  i: integer;
begin
  Write('Введите последовательность слов: ');
  Readln(firstWord);
  SetLength(wordSequence, 0);

  while not Eof do
  begin
    SetLength(wordSequence, Length(wordSequence) + 1);
    Readln(wordSequence[Length(wordSequence) - 1]);
  end;

  for i := 0 to Length(wordSequence) - 1 do
  begin
    if (wordSequence[i] <> firstWord) and
       (not HasDuplicateLetters(wordSequence[i])) and
       (IsSymmetric(wordSequence[i])) then
      Writeln(wordSequence[i]);
  end;
end.

Программа сначала запрашивает у пользователя последовательность слов, начиная с первого слова. Затем она считывает все оставшиеся слова и проверяет каждое слово на соответствие заданным условиям (отличие от первого слова, отсутствие повторяющихся букв и симметричность). Если слово удовлетворяет всем условиям, оно выводится на экран.

Убедитесь, что у вас установлена среда PascalABC.NET для выполнения этой программы. Если нет, то ее можно скачать с официального сайта PascalABC.NET.