A voir également:
- Mon premier programme en pascal..
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- Premier pro - Télécharger - Montage & Édition
- Désinstaller programme windows 10 - Guide
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.
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.
ghuysmans99
Messages postés
2496
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
339
25 sept. 2010 à 09:53
25 sept. 2010 à 09:53
Un = en trop ...
if nombre mod 2 = 0