Bonjour à tous,
Je rencontre un problème avec mon programme, est-ce quelqu'un pourrait m'éclairer?
Le programme reçoit un nombre entier et renvoie si c'est un nombre premier ou pas:
Je suppose que le problème vient d'à partir de la ligne 20 ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 program test; var a, diviseur :integer; result :BOOLEAN; begin writeln('Entrez un nombre entier'); readln(a); IF (a = 2) THEN Result := True ELSE IF (a > 2) THEN result := false ELSE IF (a mod 2 = 0) THEN Result := False For diviseur := 2 to (a-1) DO ELSE IF (a mod diviseur = 0) THEN result := false ELSE result := true; writeln('Est-ce que ce nombre est premier? ', result) end.
Merci d'avance!
Partager