-
Lenguaje
Pascal
-
Descripción
Lea desde el teclado un valor numérico entero y se verifique lo siguiente: Que el número capturado esté en el rango de 500 - 600 y que sea múltiplo de 8, como resultado se desea un mensaje indicando si se cumplen las condiciones ó que no se cumplen las condiciones.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program EnRangoDe500A600YMultiploDe8;
uses crt;
var numerico_entero : integer;
begin
write ('Ingresa el valor de numerico entero: ');
readln (numerico_entero);
if (numerico_entero>=500) and (numerico_entero<=600) and (numerico_entero mod 8=0) then
begin
writeln ('S'#161' se cumplen las condiciones.');
end
else
begin
writeln ('No se cumplen las condiciones.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var numerico_entero : integer;
begin
write ('Ingresa el valor de numerico entero: ');
readln (numerico_entero);
if (numerico_entero>=500) and (numerico_entero<=600) and (numerico_entero mod 8=0) then
begin
writeln ('S'#161' se cumplen las condiciones.');
end
else
begin
writeln ('No se cumplen las condiciones.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.