#!/usr/bin/perl
$n1 = 1;
$n2 = 19;
$zing=5;
print $a;
$liek=($n2-$n1+1)%$zing;
$p=0;
if ($liek<=>0) {$p=1};
$inter=int(($n2-$n1+1)/($zing-$p));
for ($i=$n1;$i<=$n2;$i=$i+$inter) {
$sek=$i+$inter-1;
if ($sek > $n2) {$sek=$n2;}
print "$i - $sek\n";
}


"Nerijus T" <news@upe.lt> wrote in message 
news:go5l8n$29h$1@trimpas.omnitel.net...
> zingsniui paskaiciuoti galima naudoti sveiko skaiciaus be apvalinimo 
> iskirimo funkcija int
> toliau mastyk pats
> "Bamba" <none@nonde.none> wrote in message 
> news:go5imt$t3h$1@trimpas.omnitel.net...
>> Sveiki,
>>
>> situacija tokia:
>>
>> yra diapazonas sakykim nuo 1-19.
>>
>> Reikia kokio neskausmingo budo sita diapazonas padalinti i pvz 5 grupes.
>>
>>
>> 1-4
>> 5-8
>> 9-12
>> 13-16
>> 17-19
>>
>>
>> pvz 1-9
>>
>> 1-2
>> 3-4
>> 5-6
>> 7-8
>> 9-9
>>
>> Gal kas turit kokiu ideju?
>>
>
>