Hogyan kell megoldani ezeket a feladatokat?

Nos, a DEV-Pascal-t nem ismerem, nem tudom miben különbözik a többi Pascaltól, de...

ha van mod (maradék képzés) és div (egész osztás) művelet akkor az algoritmus a következő:

(remélem a while ciklus azért van)

1. feladat (a):

var

Szam:integer;

SzamjegyekOsszege:integer;

begin

SzamjegyekOsszege:=0;

while (Szam > 0) do

begin

SzamjegyekOsszege:=SzamjegyekOsszege + (Szam mod 10);

Szam:=Szam div 10;

end;

write(SzamjegyekOsszege);

end;

Ha nincs egész osztás és maradékképzés akkor egy kicsit bonyolultabb.

1. feladat (b):

var

Szam: integer

SzamjegyekOsszege:integer;

c:integer;

x:integer;

Hatvany:integer;

begin

SzamjegyekOsszege:=0;

x:=1;

Hatvany:=0;

while x < Szam do

begin

Hatvany:=Hatvany + 1;

x:=x * 10;

end;

Hatvany:=Hatvany - 1;

x:=1;

for c:=1 to Hatvany do

x:=x * 10;

while Szam > 0 do

begin

while Szam > x - 1 do

begin

SzamjegyekOsszege:=SzamjegyekOsszege + 1;

Szam:=Szam - x;

end;

Hatvany:=Hatvany - 1;

x:=1;

for c:=1 to Hatvany do

x:=x * 10;

end;

write(SzamjegyekOsszege);

end;

A második feladat megoldása is hasonló, csak ott nem tizes hatványaival operálsz, hanem a pénz értékeivel.