Gracias por leer el post.

Estoy resolviendo el siguiente ejercicio, pero me da problemas al digitar un número mayor de 4 ceros.

Problema: Realizar un algoritmo que lea un número por teclado. En caso de que ese número sea 0 o menor que 0, se saldrá del programa imprimiendo antes un mensaje de error. Si es mayor que 0, se deberá calcular su cuadrado y la raiz cuadrada del mismo, visualizando el numero que ha tecleado el usuario y su resultado (“Del numero X, su potencia es X y su raiz X” )

CuadradoyRaiz
	Definir a, b, c, r Como Entero;
	
	Repetir
		Escribir "Digite su número: ";
		leer a;
		
		Mientras a <= 0 hacer
			Escribir "Error";
			Escribir "Digite un número positivo;";
			leer a;
		FinMientras
		
		Si a > 0 Entonces
			b = a * a;
			c = rc(b);
			Escribir "Del número ", a;
			Escribir "su potencia es ", b " y su raiz cuadrado es ", c;	
		FinSi
		
		Escribir "Desea hacer otra operación:";
		Escribir "Indique 1 para si y 2 para no:";
		leer r;
	Hasta Que r != 1;
	
	Escribir "Gracias";
	
FinAlgoritmo

Gracias por leer el post.

Estoy resolviendo el siguiente ejercicio, pero me da problemas al digitar un número mayor de 4 ceros.

Problema: Realizar un algoritmo que lea un número por teclado. En caso de que ese número sea 0 o menor que 0, se saldrá del programa imprimiendo antes un mensaje de error. Si es mayor que 0, se deberá calcular su cuadrado y la raiz cuadrada del mismo, visualizando el numero que ha tecleado el usuario y su resultado (“Del numero X, su potencia es X y su raiz X” )

CuadradoyRaiz
	Definir a, b, c, r Como Entero;
	
	Repetir
		Escribir "Digite su número: ";
		leer a;
		
		Mientras a <= 0 hacer
			Escribir "Error";
			Escribir "Digite un número positivo;";
			leer a;
		FinMientras
		
		Si a > 0 Entonces
			b = a * a;
			c = rc(b);
			Escribir "Del número ", a;
			Escribir "su potencia es ", b " y su raiz cuadrado es ", c;	
		FinSi
		
		Escribir "Desea hacer otra operación:";
		Escribir "Indique 1 para si y 2 para no:";
		leer r;
	Hasta Que r != 1;
	
	Escribir "Gracias";
	
FinAlgoritmo

Gracias por leer el post.

Estoy resolviendo el siguiente ejercicio, pero me da problemas al digitar un número mayor de 4 ceros.

Problema: Realizar un algoritmo que lea un número por teclado. En caso de que ese número sea 0 o menor que 0, se saldrá del programa imprimiendo antes un mensaje de error. Si es mayor que 0, se deberá calcular su cuadrado y la raiz cuadrada del mismo, visualizando el numero que ha tecleado el usuario y su resultado (“Del numero X, su potencia es X y su raiz X” )

CuadradoyRaiz
	Definir a, b, c, r Como Entero;
	
	Repetir
		Escribir "Digite su número: ";
		leer a;
		
		Mientras a <= 0 hacer
			Escribir "Error";
			Escribir "Digite un número positivo;";
			leer a;
		FinMientras
		
		Si a > 0 Entonces
			b = a * a;
			c = rc(b);
			Escribir "Del número ", a;
			Escribir "su potencia es ", b " y su raiz cuadrado es ", c;	
		FinSi
		
		Escribir "Desea hacer otra operación:";
		Escribir "Indique 1 para si y 2 para no:";
		leer r;
	Hasta Que r != 1;
	
	Escribir "Gracias";
	
FinAlgoritmo