Pb d'execution
jnayah
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
hold_on -
hold_on -
Bonjour,
SVP voici mon programme
program parite;
uses wincrt;
var a :integer;
mes: string;
begin
writeln('doner a');
readln(a);
if (a mod 2=0) then
begin
mes:='paire';
end;
else
begin
mes :='impaire';
end;
writeln('l'entier est: ', mes);
end.
la pb au niveau d'excution il m'affiche erreur dans l'instruction else
SVP voici mon programme
program parite;
uses wincrt;
var a :integer;
mes: string;
begin
writeln('doner a');
readln(a);
if (a mod 2=0) then
begin
mes:='paire';
end;
else
begin
mes :='impaire';
end;
writeln('l'entier est: ', mes);
end.
la pb au niveau d'excution il m'affiche erreur dans l'instruction else
A voir également:
- Pb d'execution
- Le service spouleur d'impression local n'est pas en cours d'exécution - Guide
- Net user des erreurs ont affecté l'exécution de la commande - Forum Windows
- Il permet l’exécution des logiciels applicatifs et gère l’utilisation des ressources matérielles (mémoire, processeur, périphériques). ✓ - Forum Windows 10
- Au démarrage de l’ordinateur, le d' se lance. il permet l’exécution des logiciels applicatifs et gère l’utilisation des ressources matérielles (mémoire, processeur, périphériques). - Forum Alimentation PC
- Problème de périphériques - Forum Pilotes (drivers)
1 réponse
Avant Else tu ne dois pas mettre ;
et si t'as une seule instruction tu peux enlever BEGIN et END
voila le programme fonctionnel et bon courage
program parite;
uses wincrt;
var a :integer;
mes: string;
begin
writeln('donner a');
readln(a);
if (a mod 2=0) then
mes:='paire'
else
mes :='impaire';
writeln('l''entier est: ', mes);
end.
et si t'as une seule instruction tu peux enlever BEGIN et END
voila le programme fonctionnel et bon courage
program parite;
uses wincrt;
var a :integer;
mes: string;
begin
writeln('donner a');
readln(a);
if (a mod 2=0) then
mes:='paire'
else
mes :='impaire';
writeln('l''entier est: ', mes);
end.