22Ghaith
عضو جديد
- إنضم
- 10 نوفمبر 2019
- المشاركات
- 1
- مستوى التفاعل
- 0
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. |