hg S’enregistrer 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 Index du Forum

hg Revision tunisie scolaire 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 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 ...
Ch3 - Leçon 1 ex10 p84
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

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

Posté le: Sam 29 Nov - 13:34 (2008)    Sujet du message: Ch3 - Leçon 1 ex10 p84 Répondre en citant

{Type : calcul DIV MOD}
{Ex10 - page 84 : Saisir un entier de trois chiffres et préciser
si cet entier est : Cubique, Non cubique, Pair, Impair, Posistif, négatif}

Program nature_entier;
Uses wincrt ;
Var
n,u,c,d,s :integer;
begin
write('Donner un entier à 3 chiffres : ');
readln(n);
u:= n MOD 10;
d:= (n DIV 10) MOD 10;
c:= n DIV 100;
s:=SQR(u)*u + SQR(d)*d + SQR(c)*c;

if s = n then writeln('Cubique')
else writeln('Non cubique');

if n mod 2 = 0 then writeln('Pair')
else writeln('Impair');

if n<0 then writeln('Négatif')
else writeln('Positif');
End.


 
Revenir en haut
Publicité






Posté le: Sam 29 Nov - 13:34 (2008)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet 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