Capitulo 7 Decisiones, Ejercicios 13-23

Capitulo 7
Keila abad
Ejercicios 13-23
13. Leer dos números enteros de dos dígitos y determinar si la suma de los dos númerosorigina
un número par.
varx:numerico
x1:numericox2:numericox3:numericox4:numericoiniciocls()
leer(x)
x1=x%10
x2=int(x / 10)x3=x1+x2
x4=x3%2
si ( x4 <> 0 ){imprimir ('la suma de los dos digitos no es par') ; sino imprimir ('la suma de los dosdigitos es par')}
fin14. Leer dos números enteros de dos dígitos y determinar a cuánto es igual la suma de todos los
dígitos.
varn, s,d,r, x, a,b,c,e, :numericoiniciocls()//
imprimir('Introducir un numero entero de dos digitos', '\n')
leer (n)
si(n>=10 andn<=99)
{s= n%10
r=n-s
d=r/10
sino terminar ('El numero no tiene dos digitos')}
imprimir('Introducir un numero entero de dosdigitos', '\n')
leer (x)
si(x>=10 and x<=99)
{a= x%10
b=x-a
c=b/10
sino terminar ('El numero no tiene dos digitos')}imprimir ('La suma de todos los digitos es igual a ', s+d+a+c, '\n')
fin15. Leer un número entero de tres dígitos y determinar a cuánto esigual la suma de sus dígitos.
varx, x1, x2 , x3, x4, x5, x6 :numericoiniciocls()
leer(x)
x2=x%10
x1=int(x / 10)
x3=int(x / 100)x4=x1%10
imprimir (x2 ,'\n')
imprimir (x4,'\n')
imprimir (x3, '\n')
x5=x4+x2+x3
imprimir ('la suma es ' ,x5, '\n')
fin