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 ...
séance 25mai2010 10h
 
 
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 -> (¯`·._.·[Devoirs et séries']·._.·´¯)
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 27 Juil - 12:40 (2010)    Sujet du message: séance 25mai2010 10h Répondre en citant

PublicitéSupprimer les publicités ?
program devoirs ;
uses wincrt;
var
   n,nb:longint  ;
procedure lecture(var n:longint);  
begin
     repeat
           writeln('taper n');
           readln(n);

     until(n>=10);
end;
procedure traitement(var n:longint);
var
   ch:string;
   chiffre,pe:integer;
begin
     {prmiere solution
     str(n,ch);
     chiffre:=(n mod 10);
     delete(ch,length(ch),1);
     val(ch,n,pe);
     n:=abs(n-2*chiffre); }
     {deuxiéme solution}
     chiffre:=n mod 10;
     n:=n div 10;
     n:=abs(n-2*chiffre);
end;
begin
     lecture(n);
     nb:=n;
     repeat
           traitement(n);
     until(n<10);
     if (n=0)or(n=7) then writeln(nb,' est divisible par 7')
     else writeln(nb,'non divisible par 7');
end.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 14:40 (2016)    Sujet du message: séance 25mai2010 10h

 
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 -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

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