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

Бейсик

Python

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

  A = A+1

  B = B+(X MOD 10)

  X = X \ 10

WEND

PRINT A

PRINT B

x = int(input())

a = 0

b = 0

while x > 0:

    a = a + 1

    b = b + (x % 10)

    x = x // 10

print (a)

print (b)

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

Паскаль

алг

нач

     цел x, a, b

     ввод x

     a := 0; b := 0

     нц пока x>0

         a := a+1

         b := b+mod(x,10)

         x := div(x,10)

     кц

     вывод a, нс, b

кон

var x, a, b: integer;

begin

  readln(x);

  a := 0; b := 0;

  while x>0 do

  begin

     a := a+1;

     b := b+(x mod 10);

     x := x div 10

  end;

  writeln(a); write(b)

end.

Си

#include

void main()

{

  int x, a, b;

  scanf("%d", &x);

  a = 0; b = 0;

  while (x>0) {

    a = a+1;

    b = b+(x%10);

    x = x/10;

  }

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

}