Mon premier programme en pascal..

Fermé
pomolo11 - 25 sept. 2010 à 00:44
 Ahmed - 12 janv. 2011 à 13:20
Bonsoir,
J'essaye de réaliser un petit programme qui me dit si le nombre entré par l'utilisateur est paire ou impaire, mais il me renvoie toujours une erreur, voici le programme :

var nombre : byte;
begin
write('donner un nombre');
readln(nombre);
if nombre mod 2 ==0
then
begin
write('nombre paire');
end
else
begin
write('nombre impaire');
end;
end.

L'erreur est dans la ligne de la condition if nombre mod 2 ==0, je n'arrive pas àsavoir de quoi il s'agit..

Merci d'avance..




A voir également:

2 réponses

vous pouvez utiliser la methode reduite ajouter une variable ''msg " de type chaine/ (string) qui contient d'avance ==> msg='nést pas paire'
línstruction :

program paire;
uses wincrt;
var
nombre:integer;
begin
writeln ('donner un nombre'); readln (nombre);
msg := 'nést pas paire' ;
si (nombre mod 2 =0) then
msg:= 'paire';
writeln (msg);
end.

conseil: modifier le type du variable nombre car l'intervalle byte que vous avez utiliser est tres petit le type integer c' est mieux.
1
ghuysmans99 Messages postés 2496 Date d'inscription jeudi 14 juillet 2005 Statut Contributeur Dernière intervention 5 juin 2016 338
25 sept. 2010 à 09:53
Un = en trop ...
if nombre mod 2 = 0 
-1