Mon premier programme en pascal..
pomolo11
-
Ahmed -
Ahmed -
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..
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..
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. -
Un = en trop ...
if nombre mod 2 = 0
