За один ход с числом делается операция вида: если число не делится на 3,то вычетаем 1 а если делится , то делим на 3.так из числа 39 единица получается за 5 таких ходов(имеется в виду цепочка, 39-13-12-4-3-1) программа должна: -запросить число ходов k(натуральное число,0< =k< =37) -найти и вывести на экраннаименьшее натуральное число, которое превращается в единицу за k таких ходов. язык программы pascal авс.
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.