Signaler

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

Posez votre question tamimof 1Messages postés mardi 7 novembre 2017Date d'inscription 7 novembre 2017 Dernière intervention
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.

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !