За один ход с числом делается операция вида: если число не делится на 3, то вычетаем 1 а если делится, то делим на 3. Так из числа 39 единица получается за 5 таких ходов (имеется в виду цепочка, 39-13-12-4-3-1)

Программа должна:

-Запросить число ходов k (натуральное число, 0<=k<=37)

-Найти и вывести на экранНаименьшее натуральное число, которое превращается в единицу за k таких ходов.

Язык программы Pascal АВС.

Question

Информатика

Доса

4 ноября, 13:19

За один ход с числом делается операция вида: если число не делится на 3, то вычетаем 1 а если делится, то делим на 3. Так из числа 39 единица получается за 5 таких ходов (имеется в виду цепочка, 39-13-12-4-3-1)

Программа должна:

-Запросить число ходов k (натуральное число, 0<=k<=37)

-Найти и вывести на экранНаименьшее натуральное число, которое превращается в единицу за k таких ходов.

Язык программы Pascal АВС.

+5

Ответы (1)

Знаете ответ?

Владлена · 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.