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 =