34 lines
632 B
ObjectPascal
34 lines
632 B
ObjectPascal
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.
|