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 4
 
 
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: Mon 28 Mar - 14:43 (2011)    Post subject: Divisibilté par 4 Reply with quote

 
Quote:
program divisible_4;
 
uses wincrt;
var
n:integer;
procedure lecture(var n:integer);
begin
writeln('donner un entier');
readln(n);
end;
function div_4(n:integer):boolean;
var
i,s,r,e,l:integer;
ch,chd:string;
test:boolean;
begin
str(n,ch);
l:=length(ch);
chd:='';
chd:=(ch[l-1]+ch[l]);
val(chd,r,e);
if (r mod 4=0)then
test:=true
else test:=false;
div_4:=test;
end;
procedure affiche(var n:integer);
var
ch:string;
begin
if div_4(n)=true then
writeln('n est divisible par 4')
else writeln('n n''est pas divisble par 4');
end;
begin
lecture(n);
div_4(n);
affiche(n);
end.


 
Quote:
 


 
Revenir en haut
Publicité






Posted: Mon 28 Mar - 14:43 (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: Tue 29 Mar - 13:34 (2011)    Post subject: Divisibilté par 4 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: Thu 14 Apr - 00:44 (2011)    Post subject: Divisibilté par 4 Reply with quote

de r1 c'est toujours moi avec mes camarades du bac 2011

 
Revenir en haut
Contenu Sponsorisé






Posted: Today at 19:26 (2019)    Post subject: Divisibilté par 4

 
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