hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Divisibilite par 13
Goto page: 1, 2  > 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Algorithmes d'arithmétiques
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Tue 7 Apr - 11:00 (2009)    Post subject: Divisibilite par 13 Reply with quote

voila la solution :

program pp;
uses wincrt;
var
    d:boolean;
    n:integer;
    procedure saisie( var n:integer);
    begin
    writeln ('donner n: ');
    readln (n);
        end;
    function div_13 (N:integer):boolean;
    var R,U:integer;
    begin
  
   while (N>100)do
   begin
   R:=N div 10;writeln('R:',R);
   U:=N mod 10;writeln('U:',U);
   N:=abs(R - 4*U);
      end;
     writeln(N);
    if N mod 13 =0 then
    div_13:=true else
     div_13:=false;
    end;


    begin
    saisie(n);
  
    d:=div_13(n);
    if(d)then
     writeln(n,' est divisible par 13')
     else
     writeln(n,' est non  divisible par 13');
   
    end.


 
Revenir en haut
Publicité






Posted: Tue 7 Apr - 11:00 (2009)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
aymen_prof


Offline

Joined: 05 Dec 2008
Posts: 4
Masculin
Point(s): 11
Moyenne de points: 0

Posted: Tue 2 Feb - 12:45 (2010)    Post subject: Divisibilite par 13 Reply with quote

OU EST LE PRINCIPE DE DIV_13 karimos Question
_________________
bonjour


 
Revenir en haut
alaeddinne


Offline

Joined: 31 Mar 2009
Posts: 2
Masculin
Point(s): 11
Moyenne de points: 0

Posted: Thu 4 Feb - 17:16 (2010)    Post subject: Divisibilite par 13 Reply with quote

bonjour
 if N mod 13 =0 then
    div_13:=true else
     div_13:=false;

vous avez utiliser comme même le MOD. En principe, on ne doit pas l'utiliser. 
_________________
echange d'idées


 
Revenir en haut
zoubayer


Offline

Joined: 25 Sep 2009
Posts: 4
Masculin
Point(s): 33
Moyenne de points: 0

Posted: Wed 10 Feb - 22:17 (2010)    Post subject: Divisibilite par 13 Reply with quote

ce programme ne fonctionne pas correctement
jarreb 169 elli hia normalement divisible car 169=13*13
mais ton prog me dit kil n'est pas divisible par 13
???????????!!!!!!!!!!


 
Revenir en haut
manouch


Offline

Joined: 09 Nov 2009
Posts: 1
Point(s): 1
Moyenne de points: 0

Posted: Thu 11 Feb - 17:47 (2010)    Post subject: Divisibilite par 13 Reply with quote

nn s7i7 el program merci beaucoup

 
Revenir en haut
zoubayer


Offline

Joined: 25 Sep 2009
Posts: 4
Masculin
Point(s): 33
Moyenne de points: 0

Posted: Thu 11 Feb - 20:26 (2010)    Post subject: Divisibilite par 13 Reply with quote

bahi mala lech ki ta3tih 169 y9oul false ma3a ennou true 

 
Revenir en haut
iness


Offline

Joined: 07 Dec 2009
Posts: 1
Féminin
Point(s): 1
Moyenne de points: 0

Posted: Thu 11 Mar - 22:37 (2010)    Post subject: Divisibilite par 13 Reply with quote

svp      c urgent pour 2m1 est que je peut voir la solution d div_17 svpppppppppppp c urgent pour 2m1 

 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 21:59 (2010)    Post subject: Divisibilite par 13 Reply with quote

ahla iness sava bien

 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 22:01 (2010)    Post subject: Divisibilite par 13 Reply with quote

éni prof .. mich 3adi 7atta tarfffff
chet7eb nfahhmek..?
echki..


 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 22:06 (2010)    Post subject: Divisibilite par 13 Reply with quote

mtofyaaaaaa ...!
barra nchallah tjib 9 fil bac .. eti7 controle trivez trivez w ba3d tathreb 5 (chinko)..
t3addi sif kamel tebki w t9oul ya litni ma taffitou ekl prof ekl mich 3adi !!!


 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 22:11 (2010)    Post subject: Divisibilite par 13 Reply with quote

a inesssssssss nkawer bik!! 3inik nejbedhomlek !!
ncha3alllllek ennar fi cha3rek !!
sava tawa!!
chesmek 7a9a!!
(a admin hat Bannir 3ad ) 


 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 22:14 (2010)    Post subject: Divisibilite par 13 Reply with quote

a l'admin ! rani 9afla rani tbanini nlawej 3lik w kif nal9ak.... 3thééééb !
natherbik bil 7jar ! narmilek el 7noucha fi darkom !!! karhabtek n7oufelha 3jaléha !
w ba3d natla3 prof, n9arri wlédek na3tihom des 00000000 w netsabbelholm fi Bannir defenitif mil lycée


 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 22:16 (2010)    Post subject: Divisibilite par 13 Reply with quote

hihih hani 3andi 7 points .. mombre actif  Okay Mr. Green Mr. Green Mr. Green Mr. Green Mr. Green Mr. Green

 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 22:21 (2010)    Post subject: Divisibilite par 13 Reply with quote

mak tefhem 3ad.. 9olli chbina niveau bac na9raw fi 7wayej n3adiw beha el 3am w ba3d ntaychaha ...
13 3am 9raya w  ma t3alamt chay yesla7 .. kan ekl jam3 w ettar7 mta3 el 1er anné primaire..


 
Revenir en haut
technico


Offline

Joined: 21 Apr 2010
Posts: 17
Point(s): 18
Moyenne de points: 0

Posted: Wed 26 May - 22:23 (2010)    Post subject: Divisibilite par 13 Reply with quote

          10 points    Razz

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Algorithmes d'arithmétiques All times are GMT + 1 Hour
Goto page: 1, 2  > 
Page 1 of 2

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation