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

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

c++:
#include

int main() {
int x, a = 0, b = 0;
std: : cin > > x;
while (x > 0) {
if (x % 8 % 3 > 1)
a++;
if (x % 8 % 3 < 1)
b++;
x /= 8;
}
std: : cout < < a < < " " < < b;
}

basic:
dim x, a, b as integer
input x
a = 0 : b = 0
while x > 0
if x mod 8 mod 3 > 1 then
a = a + 1
end if
if x mod 8 mod 3 < 1 then
b = b + 1
end if
x = x \ 8
wend
print a, " ", b

python:
x = int(
a = b = 0
while x > 0 :
if x % 8 % 3 > 1 :
a += 1
if x % 8 % 3 < 1 :
b += 1
x //= 8
print(a, b)

alena3211    2   30.09.2019 14:16    33