Suma cyfr Rekurencyjnie - Pascal

Algorytmy i struktury danych/Pascal/AiSD5_C3/zad4_suma_cyfr_rek.pas

@@ -0,0 +1,33 @@
+program suma_cyfr;
+function Czytaj_liczbe : Integer;
+var
+   liczba : Integer;
+begin
+   write('Podaj liczbe: ');
+   readln(liczba);
+   Czytaj_liczbe:=liczba;
+end;
+
+function Suma_cyfr(liczba : Integer) : Integer;
+begin
+   if liczba = 0 then
+      Suma_cyfr:=0
+   else
+      Suma_cyfr:= (abs(liczba) mod 10) + Suma_cyfr(liczba div 10);
+end;
+
+procedure Wypisz_wynik(liczba : Integer; suma : Integer );
+begin
+   writeln('Suma cyfr liczby ', liczba, ' to ', suma);
+end;
+
+procedure Glowna_procedura;
+var liczba : Integer;
+begin
+   liczba:=Czytaj_liczbe();
+   Wypisz_wynik(liczba,Suma_cyfr(liczba));
+end;
+
+begin
+   Glowna_procedura();
+end.