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

Бейсик

Паскаль

DIM X, A, B AS INTEGER

INPUT X

A=0: B=1

WHILE X > 0

  A = A+1

  B = B*(X MOD 10)

  X = X \ 10

WEND

PRINT A

PRINT B

var x, a, b: integer;

begin

  readln(x);

  a:=0; b:=1;

  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=1;

  while (x>0){

    a=a+1;

    b=b*(x%10);

    x= x/10;

  }

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

}

алг

нач

     цел x, a, b

     ввод x

     a:=0; b:=1

     нц пока x>0

         a:=a+1

         b:=b*mod(x,10)

         x:=div(x,10)

     кц

     вывод a, нс, b

кон