39 lines
696 B
ObjectPascal
39 lines
696 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;
|
|
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.
|