Discussion :

[Invité]

Bonjour à toutes et à tous les amis

Mon but est de créer un programme (qui demande un nombre entier à l'utilisateur et) qui affiche tous les multiples positifs de 7 inférieur à ce nombre.
Par exemple si je tape "97", le programme devra m'afficher: 0,7,14,21,28,35,42,49,56,63,70,77,84,91.

Mon plus GROS porblème, c'est que je ne saisie pas commentt incruster ma fonction de multiples de 7, j'ai suivi des tutos mais là, je ne peux PLUS avancé

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
PROGRAM multiple;
var x, i, s : integer ;
 
BEGIN
 
  Write ('Entrez un nombre entier positif: ') ; readln (x) ;
  i:=0;
  s:=0;
  while x<=s do begin
    i:=i+7;
    s:=i+i;
  end{while};
 
writeln('les multiples positifs de 7 inférieur à ',x,' sont:', i)
 
END.

Par OU commmencer??? ça a l'air simple ce programme mais je ne saisis pas........