Школьный уровень

[Poma][a]

а тут без разницы.. Хоть байты, хоть биты

[Вадим Мошев]

ИМХО, лучше оперировать с битами - меньше возни, хотя, разницы нет, да

[Аватар]

Вспомнил про эту тройку в степени и свой прокол. Вот набросал функцию для делфи, без длинки не обошлось, но очень урезано

function DegreeOfThree(Number: String): Boolean;
{Number - не пустая, только цифры, первая не ноль}
var s: String;
    i,k,Ost: Integer;
begin
  Result:=False;
  repeat
    Ost:=StrToInt(Number[1]);
    k:=Length(Number);
    i:=1;
    s:='';
    while i<=k do begin
      if Ost<3 then begin
        if i=k then Break;
        Inc(i);
        Ost:=Ost*10+StrToInt(Number[i]);
      end;
      s:=s+IntToStr(Ost div 3);
      Ost:=Ost mod 3;
    end;
    Number:=s;
    if (Ost>0) and (Number<>'') then Exit;
  until Number='';
  Result:=Ost=1;
end;

[Serge_Bliznykov]

Аватар, я бы перед циклом нашёл сумму всех циферок числа Number, если число больше трёх (или Length(Number)>1) и сумма цифр числа не кратна 9 - можно сразу выходить c false, делить число на 3 смысла нет.

[Аватар]

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

[Serge_Bliznykov]

ну да, я имел в виду, что может и первое деление нет смысла делать?
ну, если число вида:
120000000000000000000000000
то первый раз оно на 3 разделится и только на втором цикле будет отброшено.

впрочем, возможно, что Вы и правы, и предложенная мной "копеечная" оптимизация ничего конкретно-практического и не даст!

[Аватар]

Там можно в начале вставить тест из #12. Отсеет море. Необходимое условие, но, к сожалению, не достаточное

[Poma][a]

Наблюдение : задача решается за одну страницу, а дальше еще три развлекаются преимущественно модераторы

[Serge_Bliznykov]

Сообщение от Аватар

Там можно в начале вставить тест из #12. Отсеет море. Необходимое условие, но, к сожалению, не достаточное

так и я про то же!
любое число (сколько угодно длинное) (больше 3-х, конечно), которое является степенью числа 3 обязательно делится на девять. Признак делимости числа на девять - это сумма цифр числа делится на девять.
Это условие необходимое.
Но, разумеется, не любое число, которое делится на девять, является степенью тройки.

я бы лично написал проверку в начале:

var s: String;
    i,k,Ost: Integer;
begin
  Result:=False;
  if Length(Number)>1 then begin
    ost := 0;
    for i:=1 to Length(Number) do ost := ost + IntToStr(Number[i]);
    if (ost mod 9) <> 0 then Exit
  end;
  repeat
    Ost:=StrToInt(Number[1]);
    k:=Length(Number);
    .....

хотя, конечно, согласен, что может это и лишнее, ну будет работать функция на пару микросекунд быстрее - кому от этого легче?!


Poma][a, согласен. верное наблюдение!

[Sasha_Smirnov]

Наблюдение.