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
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.
