Help for this page
#!/usr/bin/perl use warnings; ... $bits[1] = ($dec & 2) <=> 0; $bits[0] = ($dec & 1) <=> 0; printf "The entered decimal number in binary is : %s\n", join '', reve +rse @bits;
... my @bits; $bits[$_] = ($dec & 2 ** $_) <=> 0 for 0 .. 7; printf "The entered decimal number in binary is : %s\n", join '', reve +rse @bits;
... my @bits; ... } printf "The entered decimal number in binary is : %s\n", join '', reve +rse @bits;
www.com | www.net | www.org
No recent polls found