#! /usr/bin/perl -w #program do liczb doskonalych $a = 10000; # zakres przeszukiwania $s = 0; for ($n = 2; $n < $a; $n = $n + 1) { for ($i = 1; $i < $n; $i = $i + 1) { if ($n % $i == 0) { $s = $s + $i; } } if ($n == $s) { print "$n jest liczba doskonala \n"; $s = 0; } else { $s = 0; } }