Rezolvare Exercitiu In Turbo Pascal?

[+MrTea]

Determinati toate numerele naturale mai mici sau egale cu n care se divid la suma cifrelor don care sunt formate de exemplu 13->>10 si 12.

In Turbo Pascal va rog!

[Courage]

N-am făcut Pascal (e un limbaj mort. nu ştiu de ce se mai predă). Uite în pseudocod cu funcţii şi fără funcţii.

 

---

[+MrTea]

Chestia e ca trebuie sa fac in pascal, asa e in informatica de-a 9-a si am cam lipsit 2 saptamani pe cauza de boala si chiar daca mi-a lamurit tot nu am inteles unele functii!

[Kid Koder]

Am facut Pascal acum cativa ani Nu garantez ca urmatorul cod se compileaza

program LoL;

var N, sumcif, i, aux, x: longint;

begin
   writeln("Introduceti N: ");
   readln(N);

   for i:= 1 to N do
     begin
        sumcif := 0;
        aux := i;
        x := i;
        while(aux <> 0) do
           begin
             sumcif := sumcif + aux mod 10;
             aux := aux div 10;
           end
        if (x mod sumcif) then writeln(x);
     end

 end.

[+MrTea]

imi poti explica ce inseamna aux?

[Kid Koder]

imi poti explica ce inseamna aux?

 

Am luat o variabila aux, de la auxiliar, in care retineam fiecare numar de la 1 la N (si in x retineam asta), pentru ca dupa ce faceam suma cifrelor in sumcif, aux devenea 0. si eu trebuia sa fac verificarea daca restul impartirii numarului la sumcif este 0 sau nu. Astfel, aux era mai mult o variabila care ma ajuta sa calculez sumcif, fara sa pierd numarul (deoarece acesta se afla in X).

 

PS: Acum imi dau seama ca nu era nevoie de x Puteam sa afisez si sa fac verificarea cu i

[Courage]

Chestia e ca trebuie sa fac in pascal, asa e in informatica de-a 9-a si am cam lipsit 2 saptamani pe cauza de boala si chiar daca mi-a lamurit tot nu am inteles unele functii!

 

Pai la scoala ati facut direct Pascal? N-ati facut intai pseudocod?

[+MrTea]

Nu Courage. Facem in TurboPascal .

[Kid Koder]

Nu Courage. Facem in TurboPascal .

Nu e tot una cu Borland Pascal ?

[+MrTea]

Kid Koder nustiu! serios