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
hold_on - 17 nov. 2012 à 18:19
A voir également:
- Pb d'execution
- Erreur d'execution 1004 - Forum Programmation
- Un administrateur vous a refusé l'execution de cette application - Forum Windows 10
- VBA erreur 1004 ✓ - Forum VB / VBA
- Microsoft a bloqué l'exécution des macros car la source de ce fichier n'est pas approuvée ✓ - Forum Excel
- Erreur d'execution 13 ✓ - Forum Programmation
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.