From 19bc98b814d024793dfe976ca916cb775547a818 Mon Sep 17 00:00:00 2001
From: materus <materus@podkos.pl>
Date: Sun, 17 Nov 2024 22:52:31 +0100
Subject: [PATCH] Suma cyfr - Pascal

---
 .../AiSD5_C2 Ćwiczenie 2/zad3_suma_cyfr.pas   | 38 +++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad3_suma_cyfr.pas

diff --git a/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad3_suma_cyfr.pas b/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad3_suma_cyfr.pas
new file mode 100644
index 0000000..2fbd00b
--- /dev/null
+++ b/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad3_suma_cyfr.pas	
@@ -0,0 +1,38 @@
+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;
+var suma : Integer;
+begin
+   suma:=0;
+   liczba:=abs(liczba);
+   while liczba>0 do
+   begin
+      suma:=suma+(liczba mod 10);
+      liczba:=trunc(liczba/10);
+   end;
+   Suma_cyfr:=suma;
+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.