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


Offline

Joined: 26 Mar 2011
Posts: 8
Masculin
Point(s): 8
Moyenne de points: 0

Posted: Sat 26 Mar - 10:42 (2011)    Post subject: divisibilté par 5 Reply with quote


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






Posted: Sat 26 Mar - 10:42 (2011)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

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

Posted: Sat 26 Mar - 22:06 (2011)    Post subject: divisibilté par 5 Reply with quote

merci pour ce partage 

 
Revenir en haut
Bedoui Nidhal


Offline

Joined: 26 Mar 2011
Posts: 8
Masculin
Point(s): 8
Moyenne de points: 0

Posted: Mon 28 Mar - 14:39 (2011)    Post subject: divisibilté par 5 Reply with quote

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

 
Revenir en haut
KARIMOS
Administrateur

Offline

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

Posted: Tue 29 Mar - 13:37 (2011)    Post subject: divisibilté par 5 Reply with quote

INCHALAH BENJAH  Okay

 
Revenir en haut
Contenu Sponsorisé






Posted: Today at 02:14 (2019)    Post subject: divisibilté par 5

 
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
 
Page 1 of 1

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