Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
#! /usr/bin/perl -w
print"Podaj liczbe:";
$liczba=
$suma=0;
while ($liczba>0)
{$s=$liczba % 10;
$suma=$suma + $s;
$liczba=($liczba - $s) / 10;
};
print"$suma";
#! /usr/bin/perl -w
print"Podaj liczbe:";
$liczba=
$suma=0;
while ($liczba>0)
{$s=$liczba % 10;
$suma=$suma + $s;
$liczba=($liczba - $s) / 10;
};
print"$suma";