0
program eje10p3;
var
CONT,dig,suma:integer;
procedure leerentero(var n:integer);
begin
read(n);
cont:=cont+1;
suma:=0;
while (n div 10 <> 0) do
 begin
  CONT:=CONT+1;
  dig:=n mod 10;
  n:=n div 10;
  dig:=dig+dig;
  suma:=suma+dig;
 end;
end;
var entero:integer;
begin
    leerentero(entero);
    writeln ('la cantidad de digitos es ',CONT);
    writeln ('la suma de digitos es ',suma);
end.

Este es mi código, no suma,no resta, no divide, no multiplica, no saca raíz, no saca factor común, no hace nada.

2

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.