Введите ответ в поле ввода

Бейсик

Паскаль

DIM X, A, B, C AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

  C = X MOD 2

  IF C = 0 THEN

     A = A + 1

  ELSE

     B = B + 1

  END IF

  X = X \ 10

WEND

PRINT A

PRINT B

var x, a, b, c: integer;

begin

  readln(x);

  a := 0; b := 0;

  while x>0 do

  begin

     c := x mod 2;

     if c=0 then a := a+1

            else b := b+1;  

     x := x div 10;

  end;

  writeln(a); write(b);

end.

Си

Алгоритмический

#include

void main()

{

  int x, a, b, c;

  scanf("%d", &x);

  a = 0; b = 0;

  while (x>0) {

    c = x%2;

    if (c==0) a = a+1;

        else b = b+1;

    x = x/10;

  }

  printf("%d\n%d", a, b);

}

алг

нач

     цел x, a, b, c

     ввод x

     a := 0; b := 0

     нц пока x>0

       c := mod(x,2)

       если с=0

         то a := a+1

         иначе b := b+1

       все

       x := div(x,10)

     кц

     вывод a, нс, b

кон