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 ...
divisibilté par 5
 
 
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
Bedoui Nidhal


Hors ligne

Inscrit le: 26 Mar 2011
Messages: 9
Masculin
Point(s): 9
Moyenne de points: 0

Posté le: Sam 26 Mar - 10:42 (2011)    Sujet du message: divisibilté par 5 Répondre en citant

PublicitéSupprimer les publicités ?

program divisible_5;
uses wincrt;
var
n:integer;
procedure lecture(var n:integer);
begin
writeln('donner un entier');
readln(n);
end;
function div_5(n:integer):boolean;
var
l:integer;
ch:string;
test:boolean;
begin
str(n,ch);
l:=length(ch);
if (ch[l]='0') or (ch[l]='5')then
   div_5:=true
else div_5:=false;
end;
procedure affiche(var n:integer);
var
ch:string;
begin
if div_5(n)=true then
writeln('n est divisible par 5')
else writeln('n n''est pas divisble par 5');
end;
begin
lecture(n);
div_5(n);
affiche(n);
end.


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Sam 26 Mar - 22:06 (2011)    Sujet du message: divisibilté par 5 Répondre en citant

merci pour ce partage 

 
Revenir en haut
Bedoui Nidhal


Hors ligne

Inscrit le: 26 Mar 2011
Messages: 9
Masculin
Point(s): 9
Moyenne de points: 0

Posté le: Lun 28 Mar - 14:39 (2011)    Sujet du message: divisibilté par 5 Répondre en citant

de r1 nchallah msalkinha snee w zid program 5af 3lena

 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mar 29 Mar - 13:37 (2011)    Sujet du message: divisibilté par 5 Répondre en citant

INCHALAH BENJAH  Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 11:25 (2016)    Sujet du message: divisibilté par 5

 
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
 
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