Значение арифметического выражения 9^8+3^24-18 записали в системе счисления с основанием 3. сколько цифр 2 содержится в этой записи?

Результат вычисления выражения = 282472583184
В 3-ричной системе = 1000000002222222222222100
Кол-во цифр 2 = 13

9^8+3^24-18  = 3^24 + 3^16 - 2*3^2
3^24(3) =  1000000000000000000000000 - нет 2
3^16 - 3^2 (3) = 2222222222222200 - 16-2 = 14 двойки
3^16 - 3^2 - 3^2 (3) = 2222222222222100 - забирается 1 двойка
ответ 14-1=13

Pascal
1. var a, b: real;
begin
  write('Введите стороны прямоугольника: ');
  read(a, b);
  writeln('Периметр = ', 2 * a + 2 * b); 
end.

2. var p, b: real;
begin
  write('Введите два числа: ');
  read(p, b);
  writeln('Произведение = ', p * b);
  writeln('Разность = ', p - b);
end.

3. var b: real;
begin
  write('Введите длину ребра: ');
  read(b);
  writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
  write('Введите радиус: ');
  read(r);
  writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
  write('Введите три стороны: ');
  read(a, b, c);
  writeln('Периметр = ', a + b + c);
end.

Pascal
1. var a, b: real;
begin
  write('Введите стороны прямоугольника: ');
  read(a, b);
  writeln('Периметр = ', 2 * a + 2 * b); 
end.

2. var p, b: real;
begin
  write('Введите два числа: ');
  read(p, b);
  writeln('Произведение = ', p * b);
  writeln('Разность = ', p - b);
end.

3. var b: real;
begin
  write('Введите длину ребра: ');
  read(b);
  writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
  write('Введите радиус: ');
  read(r);
  writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
  write('Введите три стороны: ');
  read(a, b, c);
  writeln('Периметр = ', a + b + c);
end.