algorytm.org

Implementacja w Perl



Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Test parzystości - Implementacja w Perl
Ocena użytkownikóww: *****  / 3
SłabyŚwietny
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";
}
Dodaj komentarz