Укажите , сколько всего раз встречается цифра 2 в записи чисел 13, 14, . в системе счисления с основанием 3.

13=111, далее прибавляем по единице и если будет 3 то перекидываем 1 на след разряд

111 - 0

112 - 1

121 - 1

122 - 2

211 - 1

212 - 2

221 - 2

222 - 3

1000 - 0

1001 - 0

1002 - 1

сложим, получается =  13

var

  i, n: integer;

  i1, i2, i3: 1..9;   //цифры трехзначного числа

 

begin

  for i: = 100 to 999 do   {перебираем все трехзначные числа и вычисляем цифры числа}

  begin

    i1: = i div 100;

    i2: = (i mod 100) div 10;

    i3: = i mod 10;  

    if (i3 > i2) and (i2 > i1) then inc(n);   {если 3 цифра больше 2-й и 2-я больше 1-ой, то увеличиваем счетчик на 1}

  end;

  writeln('количество трехзначных чисел, у которых цифры строго по возрастанию равно:   ', n);

end.

если все правильно, отметь решение как лучшее)

  program pr;

var a: array[100..999] of integer;

q,w,v,c,i,d: integer;

 

begin

n: =-1;

c: =1;

for i: =1 to 899 do begin

a[i]: =99+c;

c: =c+1;

q: =a[i] mod 10;

a[i]: =a[i] div 10;

w: =a[i] mod 10;

a[i]: =a[i] div 10;

if (q> w) and (q> a[i]) and (w> a[i]) then v: =v+1;

end;

writeln('всего этих числел=',v);

end.