[pascal/algorytm]Rozpisać algorytm!!!

0

Witam. Mam takie zadanie:
Dla danej liczby naturalnej n>0 napisać algorytm obliczający sumę cyfr tej liczby. Np. dla n=513242 wynik będzie wynosił 5+1+3+2+4+2=17.
Myślałem żeby może to zrobić instrukcjami warunkowymi np.
if n<10 then writeln(n) else if n<100 then begin a:=(n mod 10); b:=(n div 10) end;
itd., ale to chyba nie bedzie optymalnie.
Z góry dzięki za każdy pomysł.

0

Może użyj copy(), kopiuj cyfry po kolei i je dodawaj?

0
konik napisał(a)

Może użyj copy(), kopiuj cyfry po kolei i je dodawaj?

No tak ale jak ja to rozrysuje w algorytmie ?

0

A po co Copy()? Odwołuj się do poszczególnych znaków stringa jak do elementów tablicy i sprawa z głowy.

0

Zamien liczbe na jej postac lancuchoewa (funkcja Str()) a nastepnie kazdy ze znakow na cyfre (funkcja Val()).

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0