IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Pascal Discussion :

Afficher les multiples de 7 inférieurs à un entier quelconque


Sujet :

Pascal

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Afficher les multiples de 7 inférieurs à un entier quelconque
    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........
    Dernière modification par Alcatîz ; 13/10/2007 à 21h20. Motif: balises code (bouton #)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [TPW] Afficher les entiers premiers circulaires existants dans un intervalle
    Par mitcha95 dans le forum Turbo Pascal
    Réponses: 1
    Dernier message: 28/04/2014, 17h46
  2. Réponses: 11
    Dernier message: 04/02/2012, 18h24
  3. Réponses: 23
    Dernier message: 14/12/2011, 20h56
  4. Réponses: 3
    Dernier message: 11/10/2007, 00h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo