Найти произведение чисел

Поделиться:

Вообщем надо сделать так что бы в функции запрашивалось кол-во чисел для поизведения, а затем ввести числа. К примеру мы задаём что нам надо вычислить произведение 3 чисел, а затем вводим эти числа 2*7*8. Реализовать это как функцию.

code: #c
sub pr
{
   print "Input count: ";
   $count = <STDIN>;
   $i = 1;
   while($count){
   print "\nNum: ";
   $tmp = <STDIN>;
   $i *= $tmp;
   $count--;
   }
   return $i
}

автор: Vourhey

Похожие статьи: