Pb d'execution
jnayah
Messages postés
2
Statut
Membre
-
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
- Erreur d'exécution 13 incompatibilité de type ✓ - Forum Programmation
- Processus d'execution client serveur - Forum Windows 10
- Microsoft excel attend la fin de l'exécution d'une action ole d'une autre application - Forum Excel
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.
