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 ...
Sujets du 25 mai 2010
 
 
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: Mar 27 Juil - 12:39 (2010)    Sujet du message: Sujets du 25 mai 2010 Répondre en citant

premier sujet:
program kaprekar;
uses wincrt;
var
  i:longint;
function verif_kaprekar(k:longint):boolean;
var
  carre,n,n2,nbd,nbg:longint;
  pe:integer;
  ch,ch2,droite,gauche:string;  
begin
  carre:=k*k;
  str(k,ch);
  str(carre,ch2);
  n:=length(ch);
  n2:=length(ch2);
  droite:=copy(ch2,n2-n+1,n);
  gauche:=copy(ch2,1,n2-n);
  val(droite,nbd,pe);
  val(gauche,nbg,pe);
  verif_kaprekar:=nbd+nbg=k;
end;
begin
  for i:=1 to 1000 do
  if (verif_kaprekar(i)) then
  begin
  writeln(i,' est kaprekar');
  end;
   
end.


 
Revenir en haut
Publicité






Posté le: Mar 27 Juil - 12:39 (2010)    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