Mon premier programme en pascal.. Fermé

Question

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..




Configuration: Windows XP / Opera 9.80

ghuysmans99 · Answer

Un = en trop ...if nombre mod 2 = 0

Ahmed · Answer

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.

Mon premier programme en pascal..

2 réponses

Discussions similaires