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.
#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;
}
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
x = int(input())
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)
DIM X, L, M AS INTEGER
INPUT X
L = 1
M = 0
WHILE X > 0
M = M + 1
IF X MOD 2 <> 0 THEN
L = L * (X MOD 8)
END IF
X = X \ 8
WEND
PRINT L
PRINT M
x = int(input())
L = 1
M = 0
while x > 0:
M = M + 1
if x % 2 != 0:
L = L * (x % 8)
x = x // 8
print(L)
print(M)
алг
нач
цел x, L, M
ввод x
L := 1
M := 0
нц пока x > 0
M := M + 1
если mod(x,2) <> 0 то
L := L * mod(x,8)
все
x := div(x,8)
кц
вывод L, нс, M
кон
var x, L, M: integer;
begin
readln(x);
L := 1;
M := 0;
while x > 0 do
begin
M := M + 1;
if x mod 2 <> 0 then
L := L * (x mod 8);
x := x div 8
end;
writeln(L);
writeln(M)
end.
#include <iostream>
using namespace std;
int main(){
int x, L, M;
cin >> x;
L = 1;
M = 0;
while (x > 0) {
M = M + 1;
if(x % 2 != 0) {
L = L * (x % 8);
}
x = x / 8;
}
cout << L << endl << M << endl;
return 0;
}