Не будем лишний раз ломать себе голову, пусть компьютер своей прямой обязанностью занимается:
javascript:
var число = 3n ** 300n + 9n ** 200n + 27n ** 100n - 2n * 3n ** 150n + 13n, единиц = 0;
while (число > 0n) { let разряд = число % 3n; if (разряд == 1n) единиц++; число /= 3n; }
alert(единиц);
Итого: 6.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=['A'..'F','X'..'Z'];
Writeln(s)
end.
static void Main(string[] args)
{
Console.WriteLine("Введите a");
int a = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите b");
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("{0}+{1} = {1}+{0} = {2}", a, b, a + b);
Console.ReadKey();
}