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 ...
Bac théorique 2011
 
 
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
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 15 Juin - 13:31 (2011)    Sujet du message: Bac théorique 2011 Répondre en citant

PublicitéSupprimer les publicités ?
program valable;
uses wincrt;
var n:integer;
procedure saisie(var m:integer);
begin
repeat
readln(n);
until (n>1000) and (n<=9999);
end;


function verif(m:integer):boolean;
var test:boolean; x,d,e,i:integer;
ch:string;
begin
test:= true;
x:= m div 1000;
str(m,ch);
i:=2;
repeat
val(ch[i], d,e);
if d mod x = 0 then
i:=i+1
else
test:=false;
until(test= false) or (i>length(ch));
verif:=test;
end;
 Begin


 saisie(n);
 if verif(n) then
 writeln(n,' est valable')
 else
 writeln(n,' n''est pas valable');


 end.  :kiss: :kiss: :kiss:
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:37 (2016)    Sujet du message: Bac théorique 2011

 
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