Pascal

poutchii -  
diablond Messages postés 183 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

que faire pour arriver a ecrire un programme pouvant afficher le minimum et le maximum de 3 entiers
merci pour votre aide

1 réponse

  1.
    diablond Messages postés 183 Date d'inscription   Statut Membre Dernière intervention   48
     
    Var
    Max, Min, a, c, d : integer
    begin
    read(a);
    read(b);
    read(c);
    max := a;

    if max < b then max := b;
    if max < c then max := c;

    min := a;
    if min > b then min := b;
    if min > c then min := c;

    writeln('Max : ',max)
    writeln('Min : ',min)

    End
    0

Discussions similaires

commande en Pascal
pijahema -
tunisia -

12 réponses
Code source Triangle de Pascal Matlab
Michelangelo -
dhia -

7 réponses
Affichage d'une matrice en pascal
Pogan -
KX -

1 réponse
Bonjour je voulais faire une demande de ami et son profil
VisonHabile14 -
bendrop -

1 réponse
Mot de passe de plus de 8 caractère
Valentine -
marg -

7 réponses