Respuestas a Ejercicios de Programación.
Enviado por tomas • 12 de Abril de 2018 • 984 Palabras (4 Páginas) • 348 Visitas
...
val1 = dig / 10 - ( res / 10 )
si( res % val1 == 0 or res % val1 == 0 )
{
imprimir( "Es multiplo" )
sino
imprimir( "No son multiplos" )
}
Fin
10-. Leer un número entero de dos dígitos y determinar si los dos dígitos son iguales.
var
dig , res , val1 : numerico
inicio
cls ()
imprimir( "Digite un numero de dos digitos" )
leer( dig )
res = dig % 10
val1 = dig / 10 - ( res / 10 )
si( res == val1 )
{
imprimir( "Son iguales sus digitos" )
else
imprimir( "No son iguales sus digitos" )
}
Fin
11-Leer dos números enteros y determinar cuál es el mayor.
var
dig , res , val1 : numerico
inicio
cls ()
imprimir( "Digite un numero de dos digitos" )
leer( dig )
res = dig % 10
val1 = dig / 10 - ( res / 10 )
si( res > val1 )
{
imprimir( "El segundo digito es mayor" )
sino si( val > res )
imprimir( "El primer digito es mayor" )
sino
imprimir( "Son iguales" )
}
Fin
12-Leer dos números enteros de dos dígitos y determinar si tienen dígitos comunes.
var
dig , dig2 , res , val1 , res2 , val2 : numerico
inicio
cls ()
imprimir( "Digite un numero de dos digitos" )
leer( dig )
imprimir( "Digite otro numero de dos digitos" )
leer( dig2 )
res = dig % 10
val1 = dig / 10 - ( res / 10 )
res2 = dig2 % 10
val2 = dig2 / 10 - ( res2 / 10 )
si( res == res2 or res == val2 )
{
imprimir( "Tienen numeros iguales" )
sino
imprimir( "No tienen numeros iguales" )
}
Fin
13-Leer dos números enteros de dos dígitos y determinar si la suma de los dos números origina un número par.
var
dig , dig2 , res , val1 , res2 , val2 : numerico
inicio
cls ()
imprimir( "Digite un numero de dos digitos" )
leer( dig )
imprimir( "Digite otro numero de dos digitos" )
leer( dig2 )
si( ( dig + dig2 ) % 2 == 0 )
{
imprimir( "Su suma da un numero pares" )
sino
imprimir( "Su no suma da un numero pares" )
}
Fin
14-Leer dos números enteros de dos dígitos y determinar a cuánto es igual la suma de todos los dígitos.
var
dig , dig2 , res , val1 , res2 , val2 : numerico
inicio
cls ()
imprimir( "Digite un numero de dos digitos" )
leer( dig )
imprimir( "Digite otro numero de dos digitos" )
leer( dig2 )
res = dig % 10
val1 = dig / 10 - ( res / 10 )
res2 = dig2 % 10
val2 = dig2 / 10 - ( res2 / 10 )
imprimir( "La suma de ambos numeros con ambos digitos es:" , res + val1 + res2 + val2 )
fin
15-Leer un número entero de tres dígitos y determinar a cuánto es igual la suma de sus dígitos.
var
dig , d1 , d2 , d3 : numerico
inicio
cls ()
imprimir(
...