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

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

Бейсик

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

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

IF X MOD 2 > 0 THEN

A = A + 1

ELSE

B = B + 1

END IF X = X \ 2

WEND

PRINT A, B

Python

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

x = int(input())

a=0; b=0

while x > 0:

if x%2 > 0:

a += 1

else:

b += 1

x = x//2

print(a, b)

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

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

алг

нач

цел x, a, b

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

нц пока x > 0

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

то a := a + 1

иначе b := b + 1

все

x := div(x,2)

кц

вывод a, ' ', b

кон

Паскаль

var x, a, b: integer;
begin
readln(x);
a := 0; b := 0;
while x > 0 do begin
  if x mod 2 > 0 then
    a := a + 1
  else
    b := b + 1;
  x := x div 2;
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 2 > 0 then

a := a + 1

else

b := b + 1;

x := x div 2;

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%2 > 0) ++a;
  else ++b;
  x = x / 2;
}
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%2 > 0) ++a;

else ++b;

x = x / 2;

}

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

return 0;

}

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