Código de Pascal/Turbo Pascal - Determinar si un numero es par o impar en Free Pascal

<<>>
Imágen de perfil

Determinar si un numero es par o impar en Free Pascalgráfica de visualizaciones


Pascal/Turbo Pascal

Publicado el 29 de Octubre del 2019 por Administrador
689 visualizaciones desde el 29 de Octubre del 2019
Solicitamos un numero y determinamos si es par o impar

Requerimientos

Free Pascal

20191028

Publicado el 29 de Octubre del 2019gráfica de visualizaciones de la versión: 20191028
690 visualizaciones desde el 29 de Octubre del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella


Forma parte de Orbis Sapientia
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program TestParImpar;
 
var
  numero:integer;
 
begin
  write('Introduzca un número: ');
  readln(numero);
 
  if numero mod 2 = 0 then
    begin
      write(numero, ' es par');
    end
  else
    begin
      write(numero, ' es impar');
    end;
end.



Comentarios sobre la versión: 20191028 (0)


No hay comentarios
 

Comentar la versión: 20191028

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5615