Le nombre de 4 chiffres

En partant de 1234 par exemple, Sami obtiendrait 123 + 234 = 357.

silv1 a écrit:J'ai trouvé plusieurs solutions.
Pour voir les solutions, veuillez surligner la ligne suivante :

Code:

program chiff;

procedure saisie_n(var n : integer);
begin
    Write('Entrer un nombre de 3 chiffres : ');
    Readln(n);
end;

procedure chercher(n : integer);
var a, b, c, d, v : integer;
begin
    for a:=1 to (n div 100) do
        for b:=0 to 10-a do
            for c:=0 to 9 do
                for d:=0 to 9 do begin
                    v:=(a+b)*100+(b+c)*10+(c+d);
                    if (v=n) then writeln(a,b,c,d);
                end;
                   
end;

var
    n : integer;
begin
    saisie_n(n);
    chercher(n);
   
    Readln;
end.

Nbre Chiffres = 7
Soit N = 1234567, donc:
X = 123456 (les 6 premiers)
Y = 234567 (les 6 derniers)
S = 123456 + 234567 = 358023

Code:

program chiff;

const MAX_DIGITS = Trunc(Ln(2 shl 31) / Ln(10)) + 1;
type tab=array [1..MAX_DIGITS] of integer;

procedure saisie_n(var n : longint);
begin
    repeat
        Write('Entrer un nombre positif (non nul) : ');
        Readln(n);
    until (n > 0);
end;

procedure decomposition(nombre : longint ; var n : integer ; var t : tab);
var
    i : integer;
begin
    n := 0;
    while (nombre <> 0) do begin
        n := n + 1;
        t[n] := nombre mod 10;
        nombre := nombre div 10;
    end;
end;

function somme_speciale(n : integer ; var t : tab):longint;
var
    som : longint;
    i : integer;
begin
    som := 0;
    for i:=n-1 downto 1 do begin
        som := som * 10 + (t[i] + t[i+1]);
    end;
    somme_speciale := som;
end;

procedure chercher(nombre : longint);
var
    i : longint;
    min, max : longint;
    n : integer;
    t : tab;
begin
    min := Trunc(Exp(Ln(10) * Trunc(Ln(nombre)/Ln(10) + 1)));
    max := min * 10 - 1;
   
    for i:=min to max do begin
        decomposition(i, n, t);
        if (somme_speciale(n, t) = nombre) then Writeln(i);
       
    end;
end;

var
    n : longint;
begin
    saisie_n(n);
    chercher(n);
   
    Readln;
end.

Admin a écrit:manianis:
J'ai résolu le problème avec "longueur variable" avec un programme Pascal très rapide même si le nombre de chiffres est 6, 7, 8 ...

Si vous voulez essayer vous même de deviner comment ça marche une telle solution, je vous laisserai le temps de réfléchir... sinon, je poste la solution;)

informix a écrit:J'ai fait une solution en C mais elle est très coûteuse en temps de calcul. J'ai essayé de répondre à la question avec
N = 22334455

L'ordinateur s'est planté

Admin a écrit:Alors, pour vous défier un peu et vous encourager à fournir plus d'efforts (c'est pour votre bien), j'ai conçu un programme en Pascal qui donne la solution du problème

N = 22334455

50 secondes

Pentium IV cadencé à 2.4 GHz

[Vous devez être inscrit et connecté pour voir cette image]

A vous de faire mieux

manianis a écrit:J'ai écrit un programme qui calcule les dits nombre en seulement 17 secondes.