Задание №1701/20

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

#include <stdio.h>

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

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

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