zad11

#! /usr/bin/perl -w

print "Podaj liczbe naturalna od ktorej chcesz zaczac poszukiwania 15 par liczb \n";
print "blizniaczych: ";

$n = ;
chomp ($n);

print "\n";

for ($i = $n; $ile_liczb < 15; $i++)

{ for ($j = 2; $j < $i; $j++)
{ $reszta = $i % $j;
if ($reszta == 0)
{ $sprawdzenie = 1;}
}

if ($sprawdzenie != 1)
{$blizniacza = $i + 2;
for ($k = 2; $k < $blizniacza; $k++)
{ $reszta = $blizniacza % $k;
if ($reszta == 0)
{ $sprawdzenie_blizniaczej = 1;}
}

if ($sprawdzenie_blizniaczej != 1)
{
print "Znaleziono pare liczb blizniaczych: $i i $blizniacza \n";
$ile_liczb++;
}
$sprawdzenie_blizniaczej = 0;
}
$sprawdzenie = 0;
}

$v = ;

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

qualintaka.pev.pl