program TestParImpar;
var
numero:integer;
begin
write('Introduzca un número: ');
readln(numero);
if numero mod 2 = 0 then
write(numero, ' es par');
end
else
write(numero, ' es impar');
end;
end.
No hay comentarios
Puedes registrarte o validarte desde aquí.
Comentarios sobre la versión: 20191028 (0)
No hay comentarios