zad08


#! /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 = ;
Wyszukiwarka

Podobne podstrony:
ZAD08

więcej podobnych podstron