[HelperMe]

1. Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа. Если такой цифры нет, ответом должно быть число 0, если таких цифр в числе несколько — должен быть определен номер самой правой из них.

2. Дано натуральное число. Выяснить, является ли оно простым (Оператор цикла с параметром не использовать.

[Страдалецъ]

1. Преобразовать число в строку.
2. Циклом от конца к началу найти искомое.

Код:

N := 123456;
S := IntToStr(N);
N := 0;
for i := Length(S) downto 1
do if S[i] = '3' 
    then begin
           N := i;
           break; 
           end;
WriteLn(N);