Tuesday, November 3, 2015

Filled Under:

Perl program to find sum of digits of a number

Posted by: Creative Boyz - 7:13:00 PM

print"Enter a number: ";
$n=<STDIN>;
$s=0;
while($n>0)
{
$s=$s+($n%10);
$n=$n/10;
}
print"Sum is $s\n";