-
Lenguaje
Pascal
-
Descripción
Muestra si un número es primo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program primo;
uses crt;
var i, numero : integer;
var tecla : char;
begin
write ('Ingrese un n'#163'mero: ');
readln (numero);
i := 2;
while (i < numero) and ((numero mod i) <> 0) do
inc (i);
if i = numero then
writeln (#10#13'El n'#163'mero ', numero, ' s'#161' es primo.')
else
writeln (#10#13'El n'#163'mero ', numero, ' no es primo.');
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.
uses crt;
var i, numero : integer;
var tecla : char;
begin
write ('Ingrese un n'#163'mero: ');
readln (numero);
i := 2;
while (i < numero) and ((numero mod i) <> 0) do
inc (i);
if i = numero then
writeln (#10#13'El n'#163'mero ', numero, ' s'#161' es primo.')
else
writeln (#10#13'El n'#163'mero ', numero, ' no es primo.');
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.