Question

Escribir un programa en Pascal que detecte si un número leído desde el teclado es mayor o menor que 100.​

Answer 1

Hola.

Puede usar un bucle REPETIR - HASTA (también se conoce como Do - While). El programa sería

INICIO

Declaro numero como Entero  

REPETIR

Escribir "Ingrese un número mayor que 100"

Leer numero

HASTA QUE numero > 100

Escribir número    //Muestra el número mayor a 100 que se ha ingresado

FIN

Con esto el programa pedirá un número cuantas veces sea necesario HASTA QUE se ingrese uno mayor a 100.

PROGRAM Par_Impar;

VAR

n:integer;

BEGIN

readln(n);

IF (n mod 2 = 0) THEN

writeln('El número ', n, ' es par');

ELSE

writeln('El número ', n, ' es impar');

END.

leído desde el teclado es mayor o menor que 100.

BEGIN ClrScr; WRITE('Introduzca un numero : '); READLN(num); IF (num <= 100) THEN WRITE('NUMERO MENOR O IGUAL A 100 ') ELSE WRITE('NUMERO MAYOR DE 100') END.

espero que te ayude en algo