primos1.pas

   1 (******************************************************************)\r
   2 (*                                                                *)\r
   3 (*  Programa que pregunta por un n£mero y dice si es o no primo.  *)\r
   4 (*                                                                *)\r
   5 (******************************************************************)\r
   6 \r
   7 program PRIMOS1;\r
   8 \r
   9 var\r
  10    num: integer;           (* Entrada de usuario *)\r
  11    raiz_trunc: integer;       (* Almacenamiento de la raiz cuadrada de num truncada *)\r
  12    i: integer;                (* Contador *)\r
  13    es_primo: boolean;      (* Flag para ver si es primo o no *)\r
  14 \r
  15 begin\r
  16 \r
  17 es_primo := true;\r
  18 \r
  19      write('Ingrese el n£mero entero que desea ver si es primo o no: ');\r
  20      readln(num);\r
  21      raiz_trunc := trunc(sqrt(abs(num)));\r
  22      for i := 2 to raiz_trunc do\r
  23          begin\r
  24            if (num mod i) = 0 then\r
  25               begin\r
  26                 writeln('No es primo, es divisible por ', i, '.');\r
  27                 es_primo := false;\r
  28               end;\r
  29          end;\r
  30      if es_primo then writeln('El n£mero ingresado es primo.');\r
  31 end.\r
  32 \r