Question 5

(a) Write PERL programs for 1. Printing first N odd numbers
#!/perl/bin/perl -w
$counter = 0;
for($i=0;$counter<100;$i++)
{
if($i%2 != 0)
{
print "$i ";
$counter++;
}
}
2. Reverse an integer number
		#!/perl/bin/perl -w
$number = 123;
$sum = 0;
$temp = 0;
while($number>0)
{
$temp = $number%10;
$sum += $sum*10 + $temp;
$number = $number / 10;
}

Make Comments..!!


Oops!! No posts from user.

Download Android App