Leer n números y determinar la cantidad de números pares que se leyeron en pseudocodigo?
Leer n números y determinar la cantidad de números pares que se leyeron en pseudocodigo.
Leer n números y determinar la cantidad de números pares que se leyeron en pseudocodigo.
En resumen
Inicio entero numero, opc, resultado entero contador = 0 escribir("digita 1 para salir") escribir("digital 0 para continuar") leer opc mientras opc = !
Lesli101
Inicio entero numero, opc, resultado entero contador = 0 escribir("digita 1 para salir") escribir("digital 0 para continuar") leer opc mientras opc = !
"x" hacer leer número resultado = número mod 2 si resultado = = 0 entonces { contador = contador + 1 } fin mientras imprimir (" números pares " , contador)
fin.
Program For1 ; VAR CantPosi, CantNega, CantPar, CantImp , i , num : Integer ; BEGIN CantPosi = 0CantNega = 0CantPar = 0CantImp = 0 i = 0for (i = 1 to 50 ) dobegin write(ingrese un numero : ) ; readln(num) ; if (num mod…
Alo bebe que mas pues.
Iniciodeclarar variable x = 0sumar 1 a xdividir x en 2el modulo de dividir x en 2 es 0? Simostrar numero en pantallanosumar 1 a xrepetir hasta que x sea mayor a 20fin.