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.