247,128,346,427...выбирай любое.
759 / 12 = 63, остаток 3
63 / 12 = 5, остаток 3
5 / 12 = 0, остаток 5
А теперь выписываем остатки в обратном порядке.
759₁₀ = 533₁₂
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
<u>Пример</u>
n= 319
638
Объяснение:
1) число 1010 будем подставлять в системы счисления начиная с 2 . Получается:
2^3+2^1= 10 нам не подходит
Подставляем 3. Получается
3^3+3^1 = 30 подходит . Наш ответ основание 3 .
2) также делаем . Примерно допускаем что 2 это мало , 99 не выйдет . С 3 тоже врятли . Попробуем 4.
4^3+2*4^2+3=64+32+3=99 подходит .
Ответ основание 4
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var (a,b,c):=ReadReal3('Введите a,b,c =');
var s:= sqrt(3*c*c*c + b * b * b * b * b)/(b-c);
var k:= sqrt(s) + abs(-a*b*c);
var y:= s + 3*k - (s*s*s*s/(b + c));
Writeln('y = ', y);
end.