Ocena użytkownikóww: ***** / 3
Nadesłany przez Dominik Goździuk, 27 lutego 2012 17:51
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.parzystosc_1_pl.pl:
#! /usr/bin/perl
#Sprawdzanie czy podana przez uzytkownika liczba jest parzysta
#Dominik Gozdziuk
#www.algorytm.org
#Pobieramy liczbe od uzytkownika
print "Podaj liczbe: ";
$liczba = <STDIN>;
chomp($liczba);
#Sprawdzamy czy reszta z dzielenia podanej liczby przez 2 jest rowna 0
if ($liczba % 2 == 0) {
print "Podana liczba jest parzysta\n";
}
else {
print "Podana liczba nie jest parzysta\n";
}
