Le chiffre n°1000 ?

le 1000ème chiffre est 2

mosa a écrit:le 1000ème chiffre est 2

il y a un raisonnement derrière j'espère?

oui bien sur, je donne les autres une occasion pour réfléchir, sinon Lundi soir je le posterai, soyez au rendez-vous

see you soon
your friend religious sun

Le résultat est 3.

Code:

Prgm
""->str //initialise str comme une chaîne de caractères vide
0->nb //initialise nb comme une valeur nulle
While dim(str)<1000 //teste si la chaîne de caractères a moins de 1000 caractères
  nb+1->nb //incrémente nb de 1
  str&string(nb)->str //ajoute nb à la chaîne de caractères
  OutPut 0,0,dim(str) //affiche la taille de la chaîne de caractères(pour voir l'avancement)
EndWhile
EndPrgm

Après, j'écris mid(str,1000,1), ce qui retourne le 1000ème caractère de la chaîne, à savoir 3.

2 ou 3 ?

Je suis le seul à avoir pu le prouver...

9 nombres de 1 chiffre ==>9
(99-10+1=90) nombres de 2 chiffres ==>180
(1000-189)/3=270 nombres de 3 chiffres+1 chiffre
==> le chiffre 3

manianis a écrit:9 nombres de 1 chiffre ==>9
(99-10+1=90) nombres de 2 chiffres ==>180
(1000-189)/3=270 nombres de 3 chiffres+1 chiffre
==> le chiffre 3

c'est pas clair comme explication

methodiX a écrit:

manianis a écrit:9 nombres de 1 chiffre ==>9
(99-10+1=90) nombres de 2 chiffres ==>180
(1000-189)/3=270 nombres de 3 chiffres+1 chiffre
==> le chiffre 3

c'est pas clair comme explication

C'est plutot trés clair :
J'ai cherché le nombre de chiffres des nombres de 1 à 9 (composés de 1 chiffre)
J'ai cherché le nombre de chiffres des nombres de 10 à 99 (composés de 2 chiffres)
J'ai trouvé que le total des chiffres utilisés pour les nombre précédent est 9*1+(99-10+1)*2=189 chiffres

Le reste des chiffres càd les (1000-189) chiffres restants sont pour des nombres de trois chiffres çàd à partir de 100... Je divise ce nombre de chiffres par trois pour calculer sur quel nombre nombre le 1000ème chiffre et j'ai trouvé que c'est le 270.3333ème nombre càd le premier chiffre du (100+270=370) nombre qui est évidemment 3.

Bien joué manianis !

Défi:

Qui peut trouver une formule mathématique du genre F(n) qui calculer le nième chiffre de la série de chiffres de l'exercice.

??

Voici le programme :

Code:

program niemechiffre;

const
  NMAX = 10000;

type
  tab = array [1..NMAX] of char;

procedure remplir(var t : tab ; var n : integer ; p : integer);
var
  i, j : integer;
  s : string;
begin
  n := 0;
  i := 1;
  while (n <= p) do begin
    j := i;
    s := '';
    while (j <> 0) do begin
      s := chr(48 + j mod 10) + s;
      j := j div 10;
    end;
   
    for j:=1 to length(s) do begin
      n := n + 1;
      if (n <= NMAX) then t[n] := s[j];
    end;
    i := i + 1;
  end;
end;

var
  n, p : integer;
  t : tab;
begin
  repeat
    Write('Entrer p [1..10000] : ');
    Readln(p);
  until (p > 0) and (p <= 10000);
  remplir(t, n, p);
  Writeln(t[p]);
  Readln;
end.

Manias, comme d'habitude tes programmes sont PRO, très clairs et ça réflète "good programming skills" ...

nabiL a écrit:Manias, comme d'habitude tes programmes sont PRO, très clairs et ça réflète "good programming skills" ...

Autre défi:
Sans stocker la chaine numérique dans tableau, trouver le nième nombre de cette chaine!

Oui merci c'est possible.

Où sont les bacheliers ... c'est un bon exercice pour eux!