Укажите наибольшее натуральное трёхзначное число , при вводе которого будут напечатаны числа и . 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 <iostream>
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(input())
a = b = 0
while x > 0 :
if x % 8 % 3 > 1 :
a += 1
if x % 8 % 3 < 1 :
b += 1
x
print(a, b)