hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, 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
Aller à la page: 1, 2  > 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes d'arithmétiques
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 7 Avr - 11:00 (2009)    Sujet du message: Divisibilite par 13 Répondre en citant

PublicitéSupprimer les publicités ?
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
aymen_prof


Hors ligne

Inscrit le: 05 Déc 2008
Messages: 5
Masculin
Point(s): 12
Moyenne de points: 0

Posté le: Mar 2 Fév - 12:45 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

OU EST LE PRINCIPE DE DIV_13 karimos Question
_________________
bonjour


 
Revenir en haut
alaeddinne


Hors ligne

Inscrit le: 31 Mar 2009
Messages: 2
Masculin
Point(s): 11
Moyenne de points: 0

Posté le: Jeu 4 Fév - 17:16 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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


Hors ligne

Inscrit le: 25 Sep 2009
Messages: 4
Masculin
Point(s): 33
Moyenne de points: 0

Posté le: Mer 10 Fév - 22:17 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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


Hors ligne

Inscrit le: 09 Nov 2009
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 11 Fév - 17:47 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

nn s7i7 el program merci beaucoup

 
Revenir en haut
zoubayer


Hors ligne

Inscrit le: 25 Sep 2009
Messages: 4
Masculin
Point(s): 33
Moyenne de points: 0

Posté le: Jeu 11 Fév - 20:26 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

bahi mala lech ki ta3tih 169 y9oul false ma3a ennou true 

 
Revenir en haut
iness


Hors ligne

Inscrit le: 07 Déc 2009
Messages: 1
Féminin
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 11 Mar - 22:37 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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

 
Revenir en haut
technico


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 21:59 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

ahla iness sava bien

 
Revenir en haut
technico


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 22:01 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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


 
Revenir en haut
technico


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 22:06 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 22:11 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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


 
Revenir en haut
technico


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 22:14 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 22:16 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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

 
Revenir en haut
technico


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 22:21 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

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


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 17
Point(s): 18
Moyenne de points: 0

Posté le: Mer 26 Mai - 22:23 (2010)    Sujet du message: Divisibilite par 13 Répondre en citant

          10 points    Razz

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:08 (2016)    Sujet du message: Divisibilite par 13

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes d'arithmétiques Toutes les heures sont au format GMT + 1 Heure
Aller à la page: 1, 2  > 
Page 1 sur 2

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation