Bonjour,
C'est Monsieur HOUNKPATIN Jérôme du Bénin. Merci de bien vouloir m'aider pour régler ce problème. J'ai écrit un programme concernant le paiement des impôts selon l'âge du citoyen. Mais j'ai constaté que toutes les instructions ne sont pas exécutées. Voici le programme :
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
17
18
19
20
21
22
23
  program impot;
  uses crt;
  var age:integer;
       sex:char;
        h,f:boolean;
   begin
   clrscr;
       write('Entrez votre âge:');
       readln(age);
       write('Entrez votre sexe M/F:');
       readln(sex);
       h:= (sex='M') and (age>=20);
       f:= (sex='F') and ((age>=18) and (age<=35));
       if h or f then
            begin
                write('Imposable');
            end
       else
            begin
                write('Non imposable');
             end;
   readln;
   end.
NB:L'instruction à partir de if n'est pas exécutée et, quel que soit l'âge, il m'envoie toujours 'Non imposable'. Cher sauveur veuillez m'aider à corriger l'erreur.
Merci.