Question

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

Answer 2

Вот пример программы на языке Pascal, которая выполняет указанные действия:

pascalCopy code
program NumberTransformation;
var
  k, n, count: Integer;

function TransformNumber(number: Integer): Integer;
begin
  count := 0;
  while number <> 1 do
  begin
    if number mod 3 <> 0 then
      number := number - 1
    else
      number := number div 3;
    count := count + 1;
  end;
  TransformNumber := count;
end;

begin
  Write('Введите число ходов k (0 <= k <= 37): ');
  ReadLn(k);

  n := 1;
  while TransformNumber(n) <> k do
    n := n + 1;

  WriteLn('Наименьшее число, превращающееся в единицу за ', k, ' ходов: ', n);
end.

Эта программа запрашивает число ходов k и затем ищет наименьшее натуральное число, которое превращается в единицу за k таких ходов.