cdf =Manipulate[Column[{ SuFunc[numnum]}],Style[proposito,Bold,10],Spacer[{100,3}],
 (*Inicio contadores *)
{{num,8788.24,"Número real"}, ControlType->InputField}, Button["OK", numnum =num]
(* Fin contadores *)
,Alignment->Center,Deployed->True,AppearanceElements->"ResetButton",LocalizeVariables->True,ContinuousAction->False,FrameLabel->{{None,None},{Column[{,Row[{Style["Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada",Bold,10,RGBColor[0,0,0.5]]}],Row[{Style["Escuela de Informática | Universidad Nacional de Costa Rica",Bold,10,RGBColor[0.5,0.1,0]]}]},Center],Style["Título: Expresando números como suma de potencias de 10. ", Bold,14, RGBColor[0,0.33,0.33]]}},
Initialization:>(
numnum =num;
proposito ="Propósito: Expresar un número como suma de potencias de 10. ";
SuFunc[num_] := Module[{d, n,nn,  i},
(*($PreRead=(#/. s_String/;StringMatchQ[s,NumberString]&&Precision@ToExpression@s==MachinePrecision:>s<>"`12."&));*)
d =RealDigits[num, 10, 12];
n=d[[2]];
d=d[[1]];
 While[d[[-1]]==0, d=Delete[d, -1]];
(∑_(i=0)^(Length@d-1))d[[i+1]]*10^(n-1-i)//N;
(*Print[Table[{d[[i+1]], N[10^(n-1-i)] }, {i, 0, Length@d-1}]]*);
Table[{d[[i+1]],"*", N[10^(n-1-i)] }, {i, 0, Length@d-1}] //TableForm
];
)]
CloudDeploy[cdf, Permissions->"Public"]