Необходимо найти номер крайнего справа символа 3 в заданном натуральном числе в Delphi. Если символ 3 отсутствует

Delphi: Поиск номера крайнего справа символа "3" в натуральном числе

Чтобы найти номер крайнего справа символа "3" в заданном натуральном числе, мы можем использовать следующий алгоритм:

1. Преобразование числа в строку: Преобразуем заданное натуральное число в строку, чтобы можно было обрабатывать каждый символ отдельно.

2. Обратный обход строки: Пройдемся по строке с конца к началу, чтобы найти крайний справа символ "3". Для этого будем уменьшать индекс от последнего символа до первого.

3. Поиск символа "3": На каждом шаге будем проверять текущий символ строки. Если это "3", то мы нашли искомый символ. В таком случае мы можем вернуть номер текущего символа (индекс + 1) как ответ.

4. Обработка отсутствия символа "3": Если после прохода по всей строке не был найден символ "3", мы вернем 0 в качестве ответа.

Пример использования:

Delphi

function FindRightmostThree(number: Integer): Integer;

var

  numberStr: string;

  i: Integer;

begin

  numberStr := IntToStr(number);

  

  for i := Length(numberStr) downto 1 do

  begin

    if numberStr[i] = "3" then

    begin

      Result := i + 1;

      Exit;

    end;

  end;

  

  Result := 0;

end;



begin

  // Пример вызова функции для числа 854739

  Writeln(FindRightmostThree(854739)); // Выводит: 6

end.

Совет: При работе с символами строк и их индексами в Delphi, обратите внимание, что индексация начинается с единицы, а не с нуля. Поэтому, чтобы получить индекс символа справа от текущего, мы добавляем 1 к текущему индексу. Этот момент важно учесть при написании кода.

Упражнение:
Напишите свою собственную программу на Delphi, используя приведенный выше алгоритм, чтобы найти номер крайнего справа символа "3" в других натуральных числах и выведите результат на экран.