Nerijus T wrote:
> #!/usr/bin/perl
> $n1 = 1;
> $n2 = 7;
> $zing=5;
> $inter=(($n2-$n1+1)/$zing);
> for ($i=$n1;$i<=$n2;$i=$i+$inter) {
> $pirm=int($i+0.5);
> $sek=int($i+$inter+0.5)-1;
> if ($sek > $n2) {$sek=$n2;}
> print "$pirm - $sek\n";
> }
O taves indentuoti kodo nieks nemoke? :))