MathLover22
Nuovo Utente
- Messaggi
- 2
- Reazioni
- 0
- Punteggio
- 22
Salve ho creato un programma in grado di dirti se un numero è primo o meno e ha funzionato. Poi ho deciso di arricchirlo in modo che ti dica anche se si tratti di un primo di Mersenne esprimibile in questo modo:
n=2^p-1
Ma mi da il seguente errore:
47 / 5 primi.pas
Fatal: Syntax error, UNTIL expected but const char found
Dov'è l'errore? :grat:
n=2^p-1
Ma mi da il seguente errore:
47 / 5 primi.pas
Fatal: Syntax error, UNTIL expected but const char found
Codice:
program PRIMI;
var A,B,C,D,E,F,G:integer;
begin
writeln('Inserisci A');
readln(A);
A:=D;
if A=1
then
begin
writeln(A,'non e` primo');
readln;
end
else
begin
if A=2
then
begin
writeln(A,'e` primo');
readln;
end
else
begin
repeat
B:=D-1;
C:=A mod B;
D:=D-1;
if C=0
then
begin
writeln(A,'non e` primo');
readln;
D:=2;
E:=2
end;
until D=2;
if E<>2
then
begin
writeln(A, 'e` primo');
readln;
F:=A+1 mod 2;
end;
if F=0
then
begin
repeat
G:=2^F-1;
F:=F+1;
until(G=A)or(F=30);
end;
if G=A;
then
begin
writeln(A, 'è un primo di Mersenne');
readln;
end;
end;
end;
end;
Dov'è l'errore? :grat:
Ultima modifica da un moderatore: