FreePascal program?

Szép, kezdő feladat.

Rajta, aztán szólj, ha valahol elakadtál.

És hol akadtál el?

Az osztható számokat számláló változó deklarálásánál ( [link] )?

A ciklusnál ( [link] )?

A feltételnél ( [link] )?

Hogyan kell használni a Mod függvényt ( [link] )?

A számláló változó kiíratásnál ( [link] )?

#7: Úgy látszik nem oldotta meg, elakadt:

"Szia, eddig jutottam el, de 1-et hoz ki eredménynek.

[link]

Javaslom, hogy az 5. sorban a do után pontosvesszőt szedd ki.

Az a pontosvessző ugyanis azt okozza, hogy a ciklus végigfut 2-től 20-íg üres ciklusmaggal, majd a feltétel a legutolsó szám, a 20 oszthatóságát ellenőrzi, így csak 1 lesz az x értéke.

Szóval így:

[link]

#8:

Ezt írta:

"Nagyon szépen köszönöm, így már jó eredményt hozott ki"

És a gond az volt, hogy a cikluson belül újra és újra inicializálta a változót 0 értékkel.

"És a gond az volt, hogy a cikluson belül újra és újra inicializálta a változót 0 értékkel."

Nem inicializált a ciklusmagon belül semmit.

A ciklus végigfut üresen, az i értéke a ciklus legutolsó értéke - 20 - marad. Ennek a 20-nak a 2-vel való oszthatóságát vizsgálja meg a feltételben. Mivel 20 maradék nélkül osztható 2-vel, ezért az x értékét eggyel növeli - így lesz 1.

Itt egy szemléltető példa:

[link]