Crear cuenta
int numero, pares, impares;
pares = 0;impares = 0;while ( numero != 0 )
{if ( numero % 2 == 0 )
pares += numero;
else
impares += numero
if Mod(numero_a_avaluar, 2))=0 then
// par
else
impar
end if
integer n1,n2,n3,n4,n5,n6,sum,resta,prom1, prom2
n1=integer(sle_n1.text)
n2=integer(sle_n2.text)
n3=integer(sle_n3.text)
n4=integer(sle_n4.text)
n5=integer(sle_n5.text)
n6=integer(sle_n6.text)
if mod(n1,2)=0 and mod(n2,2)=0 and mod(n3,2)=0 and mod(n4,2)=0 and mod(n5,2)=0 and mod(n6,2)=0 then
sum=else
resta=end if
st_pares.text=string(sum)
st_impar.text=string(resta)
int li_numeros[], li_num, li_num_act, li_pares
decimal{2} ldc_suma_pares = 0, ldc_prom_pares
li_numeros[1] = Integer(em_1.text)
li_numeros[2] = Integer(em_2.text)
li_numeros[3] = Integer(em_3.text)
li_numeros[4] = Integer(em_4.text)
for li_num = 1 to upperbound( li_numeros )
li_num_act = li_numeros[ li_num ]
if Mod( li_num_act, 2 ) = 0 then
ldc_suma_pares = ldc_suma_pares + li_num_act
li_pares = li_pares + 1
else
// hacer lo mismo para los impares
end if
next
ldc_prom_pares = ldc_suma_pares / li_pares
st_1.text = String(ldc_suma_pares)
st_2.text = String(ldc_prom_pares)