Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Calcular digitos de un numero (hasta 4 digitos)
Program CalcularDigitosdeunEntero; var Result, Z, primerdigito, segundodigito, tercerdigito, cuartodigito : integer; begin read(Z); if Z <= 9 then begin Result := 1; primerdigito:= Z; writeln('El primer digito es ', Z); end else if Z <= 99 then begin Result := 2; primerdigito:=Z div 10; segundodigito:=Z mod 10; writeln('El primer digito es ', primerdigito); writeln('El segundo digito es ', segundodigito); end else if Z <= 999 then begin Result := 3; primerdigito:=Z div 100; segundodigito:=(Z mod 100) div 10; tercerdigito:=Z mod 10; writeln('El primer digito es ', primerdigito); writeln('El segundo digito es ', segundodigito); writeln('El tercer digito es ', tercerdigito); end else if Z <= 9999 then begin; Result := 4; primerdigito:=Z div 1000; segundodigito:=(Z mod 1000) div 100; tercerdigito:=(Z mod 100) div 10; cuartodigito:= Z mod 10; writeln('El primer digito es ', primerdigito); writeln('El segundo digito es ', segundodigito); writeln('El tercer digito es ', tercerdigito); writeln('El cuarto digito es ', cuartodigito); end; writeln('Hay ',Result,' digitos.'); end.
run
|
edit
|
history
|
help
0
eliminar elemento de un arreglo
Huong11a2@
считалочка03
лет-год-года
Linija
2
RENAN COSTA CARLOS DA CUNHA 600623343
practica 2 ejercicio 1
Kelipatan
Бассейн-5