#! /usr/bin/perl

#Suma cyfr liczby calkowitej
#Dominik Gozdziuk
#www.algorytm.org

#Pobieramy liczbe od uzytkownika
print "Podaj liczbe calkowita: ";
$liczba = <STDIN>;
chomp($liczba);

$suma = 0;
#Dopoki liczba jest rozna od zera
while ($liczba != 0) {
        #Do sumy dodajemy reszte z dzielenia podanej liczby przez 10 (czyli ostatnia cyfre)
        $suma += $liczba%10;
        #Dzielimy nasza liczbe przez 10 (pozbywamy sie ostatniej cyfry)
        $liczba /= 10;
}

#Wyswietlamy wynik
print "Syma cyfr podanej liczby wynosi: $suma\n";