Blog literacki, portal erotyczny - seks i humor nie z tej ziemi



#! /usr/bin/perl -w

print "Wprowadz liczbe: ";
$x = ;
chomp ($x);

if ($x == 2)
{ print "To jest liczba pierwsza."; }
else
{ for ($i = 2; $i < $x; $i = $i + 1)
{ $reszta = $x % $i;
if ($reszta == 0)
{ $sprawdzenie = 1;}
}
if ($sprawdzenie == 1)
{ print "To nie jest liczba pierwsza."; }
else
{ print "To jest liczba pierwsza." }
}

$v = ;
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • qualintaka.pev.pl
  •