Menu

Test de module ( de type fonction) incorporé dans un programme

tamimof 1 Messages postés mardi 7 novembre 2017Date d'inscription 7 novembre 2017 Dernière intervention - 7 nov. 2017 à 18:10
Lorsque je teste un module ( de type fonction) incorporé dans un programme principal pour le mettre au point, ça marche sauf sous windows10. Cela ne donne aucun résultat alors que le module fonctionne parfaitement sur toutes les autres versions de Windows (xp, 8,...)
Merci beaucoup de m'éclairer .

program test;
var x:longint;
function chpair (n: longint):longint;
var p, res: longint;
begin
p:=1;
res:=0;
repeat
if(n mod 10) mod 2 =0 then
begin
res:=res+(n mod 10 )*p;
p:=p*10;
end;
n:=n div 10;
until n=0;
chpair:=res;
end;
BEGIN
readln(x);
write(chpair(x));
readln;
END.
Afficher la suite