За один ход с числом делается операция вида: если число не делится ** 3,то вычетаем 1 а...

Question

За один ход с числом делается операция вида: если число не делится на 3,то вычетаем 1 а если делится , то делим на 3.Так из числа 39 единица получается за 5 таких ходов(имеется в виду цепочка, 39-13-12-4-3-1)
Программа должна:
-Запросить число ходов k(натуральное число,0<=k<=37)<br>-Найти и вывести на экранНаименьшее натуральное число, которое превращается в единицу за k таких ходов.
Язык программы Pascal АВС.

Answer 1

Есть =)
program z;
var k, x, i: integer;
begin
readln(k);
x:=1;
for i:=1 to k do
begin
if ((x + 1) mod 3 = 0) then x:=x*3
else x:=x+1;
end;
writeln(x);
end.