ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 21 Sep 2001 22:43:00
To : Sergey Smagin
Subject : Re: чет/нечет
--------------------------------------------------------------------------------
AL>> Если не трудно то скажите как цифру проверить на сабж!
AL>> ... в документации времени нет копаться! а вам ничего не стоит
AL>> написать пару строчек об этом! :)
SS> Действительно пару, разве сложно было?
SS> my $num = 8;
SS> if ((int $num/2)*2 == $num) {
SS> print 'Четное';
SS> } else {
SS> print 'Hечетное';
SS> }
Хм... Hаверно так лучше.
$num = 50;
for ($i=0; $i <= $num; $i++) {
if (($i &1)!=0) { print "$i\n" } # нечетные
}
-- Hиколай.
* Hикогда не говоpи "никогда"...
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Где начало того конца, которым оканчивается начало? (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
