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

[Poma][a]

Судьба, судьба. Вспомни признак делимости на 3

Дык уже

а признак не хочется

абкадабра

[Аватар]

Не совсем признак, но близко к нему:

3^20 = 3486784401 -> 3+4+8+6+7+8+4+4+0+1=45 -> 4+5=9

и так для всех целых не отрицательных степеней кроме 0 и 1

[Poma][a]

Не совсем признак, но близко к нему:

3486784401 -> 3+4+8+6+7+8+4+4+0+1=45 -> 4+5=9
3^2*59*1967753 = 1044876843 -> 1+0+4+4+8+7+6+8+4+3=45 -> 4+5=9
Не задет ведь..

[Аватар]

Да, идея с червоточиной Нужно еще вокруг да около походить, может и найдется изюминка

[Smitt&Wesson]

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

А если в числе 200 цифр? Или намного больше

А зачем в секстилионах точность до единицы? Логорифмические ряды, уже упразднили?

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

Да, идея с червоточиной Нужно еще вокруг да около походить, может и найдется изюминка

Ага, партия яблоко, тому пример .

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

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

Не совсем признак, но близко к нему:

3^20 = 3486784401 -> 3+4+8+6+7+8+4+4+0+1=45 -> 4+5=9

и так для всех целых не отрицательных степеней кроме 0 и 1

Я не совсем понял, что Ромаха сказал в посте, который следует за вашим, Аватар, но вот контрпример.

На входе число 6. Делится на три, но НЕ является целой степенью числа 3 (а степенью здесь будет логарифм по основанию 3 от числа 6 - такое число иррационально, что по определению не может быть целым числом).

Сообщение от Naive

мне кажется проще было бы запустить вайл с делением на 3, пока параметр больше единицы. Вконце определить, если результат равен 1, значит исходник - степень тройки, в противном случае - нет.

Да, я тоже думал о таком варианте, но мне лень было...

[Naive]

200 цифр?)
я может ошибаюсь, но вроде как в паскале максимум 65к лонгинт, получается 130к - ансайнет, 6 цифр... тут нетрудно что вайлом пробежаться, что рекурсией)
Даже в моем любимом JS максимум 21 знак, дальше до инфинити число хранится только с плавающей запятой=)

[Poma][a]

Кстати, Вадим, твой вариант тоже арбайтен нихт

var
	a : Real;
	k : Integer;
begin
	k := 81;
	a:=exp((1/3)*ln(k)); {извлечём кубический корень}
	if frac(a) <= 0.000001 then 
		writeLn('Является')
	else 
		writeLn('Не является')
end.

200 цифр?)

Строка

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

Роман, почему ?

[Poma][a]

Потому что нужно проверить является ли число степенью 3-ки, а не правильным кубом..
тыц