История изменений
Исправление
kompospec,
(текущая версия)
:
Я вспомнил. И написал им код:
#!/usr/bin/perl
$x=2;
$y=4; # Степень
$x1=1;
$x1 *= $x for(1..abs($y));
$x1= 1/$x1 if $y<0;
print $x1;
но было поздно - пришёл отказ.
Исходная версия
kompospec,
:
Я вспомнил. И написал им код:
#!/usr/bin/perl
$x=2; $y=4; # Степень
$x1=1;
$x1 *= $x for(1..abs($y));
$x1= 1/$x1 if $y<0;
print $x1;
но было поздно - пришёл отказ.