PseInt Ejercicio 7.1 - cant numparesdel1 al 100 con mientras

Algoritmo numpar_de_1_a_100_ciclo
	definir i, a, cont Como Entero
	cont = 0
	Mientras i < 100 hacer
		si i % 2 == 00
			cont = cont + 1
		FinSi
		i = i +1
	FinMientras
	Escribir "hay ", cont, " numeros pares desde 1 al 100"
FinAlgoritmo