Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
#! /usr/bin/perl -w
print "Wprowadz pierwsza liczbe: ";
$x =
chomp ($x);
print "Wprowadz druga liczbe: ";
$y =
chomp ($y);
print "Wprowadz trzecia liczbe: ";
$z =
chomp ($z);
@lista = ($x, $y, $z);
@lista = sort ({$a <=> $b} @lista);
print "Najwieksza liczba to: $lista[2]\n";
$e=