Задание №1701/20

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

#include <stdio.h>

void main() {
  int x;
  scanf("%d", &x);
  int a = 0, b = 1;
  while (x > 0) {
    if (x % 3 > 0)
      a++;
    if (x % 3 > 1)
      b++;
    x /= 10;
  }
  printf("%d %d", a, b);
}

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

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