Skocz do zawartości
Forum komputerowe PC Centre
sla8y

Dodawanie liczb z tej samej liczby TP

Rekomendowane odpowiedzi

Witam! Przeszukałem chyba większość zasobów internetu i nie mogąc znaleźć odpowiedzi jestem zmuszony napisac posta... Otóż chodzi mi o formułke do Turbo Pascala która dodawała by składowe jakies dowolnej liczby dla przykładu mamy liczbe 2015 program mial by dodawac pokoleji 2+0+1+5=8. Tak aż otrzyma sie cyfre.

Z góry dziekuję za pomoc.

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach
Str(liczba, s);
suma := liczba;
if Length(s) > 1 then
  for x := 2 to Length(s) do
    suma := suma + Int(s[x]);

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

A jakie typy zmiennych? Bo co dobiore to wywala rózne od siebie błedy.

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

liczba, suma: integer;

s: string;

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

×
×
  • Dodaj nową pozycję...