Bonjour je débute en Pascal et je voulais savoir si mon raisonnement est juste.
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 PROGRAM multiple; var x, i : integer ; BEGIN Write ('Entrez un nombre entier positif: ') ; readln (x) ; for i:=0 to x div 7 do writeln('les multiples positifs de 7 inférieur à ',x,' sont:', i*7); readln END.
Partager