Suma cyfr - Pascal
This commit is contained in:
@@ -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
|
||||||
|
|||||||