Sciences de l'informatique
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilDernières imagesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
» Cours sur les fichiers
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Lun 2 Mai - 13:32 par kaouther

» série révision finale
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Ven 15 Avr - 2:32 par Dhifallah Fethi

» Conversion de nombre décimal vers un nombre binaire
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Mar 29 Mar - 2:27 par Dhifallah Fethi

» Divisibilité par 5 (Algoritmes arithmétiques)
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Mar 29 Mar - 2:24 par Dhifallah Fethi

» Divisibilité par 4 (Algoritmes arithmétiques)
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Mar 29 Mar - 2:18 par Dhifallah Fethi

» Série enregestrement et fichier avec corection
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Mar 29 Mar - 1:30 par Dhifallah Fethi

» Exercice 8 (Algorithmes récurrents)
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Lun 28 Mar - 2:34 par Dhifallah Fethi

» Exercice 7 (Algorithmes récurrents)
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Lun 28 Mar - 2:23 par Dhifallah Fethi

» Exercice 6 (Algorithmes récurrents)
Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Lun 28 Mar - 2:18 par Dhifallah Fethi

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

 

 Divisibilité par 4 (Algoritmes arithmétiques)

Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
Dhifallah Fethi


Messages : 74
Date d'inscription : 02/03/2011

Divisibilité par 4 (Algoritmes arithmétiques) Empty
MessageSujet: Divisibilité par 4 (Algoritmes arithmétiques)   Divisibilité par 4 (Algoritmes arithmétiques) Icon_minitime1Mar 29 Mar - 2:18

Divisibilité par 4


Code:
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.

rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer rendeer
Revenir en haut Aller en bas
https://ntic.yoo7.com
 
Divisibilité par 4 (Algoritmes arithmétiques)
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Divisibilité par 5 (Algoritmes arithmétiques)
» Divisibilité par 4

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: