Е22.15. наименьшее возможное значение x, при вводе которого программа выведет сначала 4, а потом 2.

Укажите наименьшее возможное значение x, при вводе которого программа выведет сначала 4, а потом 2. Ниже на пяти языках программирования записана программа, которая вводит натуральное число x, выполняет преобразования, а затем выводит два числа.

Бейсик

DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 0
WHILE X > 0
  IF X MOD 3 > 0 THEN
    A = A + X MOD 3 ELSE
    B = B + 1
  END IF
  X = X \ 3
WEND
PRINT A, B

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

IF X MOD 3 > 0 THEN

A = A + X MOD 3 ELSE

B = B + 1

END IF

X = X \ 3

WEND

PRINT A, B

Python

x = int(input())
a = 0; b = 0
while x > 0:
    if x%3 > 0:
        a += x%3
    else:
        b += 1
    x = x//3
print(a, b)

x = int(input())

a = 0; b = 0

while x > 0:

if x%3 > 0:

a += x%3

else:

b += 1

x = x//3

print(a, b)

Алгоритмический язык

алг
нач
цел x, a, b
ввод x a := 0; b := 0
нц пока x > 0
  если mod(x,3)>0
    то a := a + mod(x,3)
    иначе b := b + 1
  все
  x := div(x,3)
кц
вывод a, ' ', b
кон

алг

нач

цел x, a, b

ввод x a := 0; b := 0

нц пока x > 0

если mod(x,3)>0

то a := a + mod(x,3)

иначе b := b + 1

все

x := div(x,3)

кц

вывод a, ' ', b

кон

Паскаль

var x, a, b: integer;
begin
readln(x);
a := 0; b := 0;
while x > 0 do begin
  if x mod 3 > 0 then
    a := a + x mod 3
  else
    b := b + 1;
  x := x div 3
  end; 
writeln(a, ' ', b)
end.

var x, a, b: integer;

begin

readln(x);

a := 0; b := 0;

while x > 0 do begin

if x mod 3 > 0 then

a := a + x mod 3

else

b := b + 1;

x := x div 3

end;

writeln(a, ' ', b)

end.

С++

#include <iostream>
using namespace std;
int main()
{
int x, a, b;
cin >> x;
a = 0; b = 0;
while (x > 0) {
  if (x%3 > 0) a += x%3;
  else ++b;
  x = x / 3;
}
cout << a << ' ' << b << endl;
return 0;
}

#include <iostream>

using namespace std;

int main()

{

int x, a, b;

cin >> x;

a = 0; b = 0;

while (x > 0) {

if (x%3 > 0) a += x%3;

else ++b;

x = x / 3;

}

cout << a << ' ' << b << endl;

return 0;

}

Показать решение...