Question

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

Answer 1

Алиса, кок, азаза, торт, ротор, окно, каюк, юморю, ротвейлер, естествознание.

Answer 2

Око , пуп , тот , оно , антилопа ,   азбука , алгебра , антэна , снилс.

Answer 3

Конечно! Я помогу вам решить эту задачу. Вот пример кода на языке Pascal (Delphi), который находит и печатает слова, начинающиеся и оканчивающиеся одной и той же буквой в заданной строке:

pascalCopy code
program WordsWithSameFirstAndLastLetter;

procedure PrintWordsWithSameFirstAndLastLetter(inputString: string);
var
  words: array of string;
  word: string;
  i: integer;
begin
  words := inputString.Split([' ']); // Разбиваем строку на слова по пробелам

  // Проходим по каждому слову
  for i := 0 to Length(words) - 1 do
  begin
    word := words[i];

    // Проверяем, начинается ли слово и заканчивается ли оно одной и той же буквой
    if (Length(word) > 0) and (word[1] = word[Length(word)]) then
      writeln(word);
  end;
end;

var
  inputString: string;
begin
  writeln('Введите строку:');
  readln(inputString);
  writeln('Слова, начинающиеся и заканчивающиеся одной и той же буквой:');
  PrintWordsWithSameFirstAndLastLetter(inputString);
end.

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