Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Primo1
program prime1; {Programa que te dice si el número dado es primo o no} const msg1=' is prime'; msg2=' is not prime'; label m1; var d,N: word; {número entero del 1 al 65535 } msg: string; {cadena del mensaje} begin write('N = '); {Introduce el numero a investigar} readln(N); {lee N} msg := msg1; {El número es primo} if N<4 then goto m1; { N<4 - los núm 1,2,3 son primos} msg := msg2; {El número no es primo} if not odd(N) then goto m1; { si N es par no es primo} d:=3; {número primo menor de cuatro - 3} while d*d<=N do {hasta que d sea raíz cuadrada N} begin if (N mod d)=0 then goto m1; {si el resto = 0 es Divisible} d:=d + 2; end; msg:= msg1; m1: writeln (N, msg); readln; end.
run
|
edit
|
history
|
help
0
Lab 1: Program 1 Hello World
test25
Сумма пар чисел кратных и некратных 11 с дельтой
test
Zadanie 3 a
10 Ariketa
Task 3a
test27
Vremenska prognoza
Complemento da VS ICC II - 1º Semestre 2017