Pb d'execution

Fermé

jnayah Messages postés 1 Date d'inscription mardi 13 novembre 2012 Statut Membre Dernière intervention 14 novembre 2012 - 14 nov. 2012 à 06:46
hold_on - 17 nov. 2012 à 18:19

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

A voir également:

1 réponse

Réponse 1 / 1

hold_on
17 nov. 2012 à 18:19

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.

Discussions similaires

VBA erreur 1004

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

[excel] erreur 1004 : fichier non enregistré.

processus d'execution client serveur utilise GPU

Discussions similaires

Newsletters