Дано целое число. если оно является положительным, то прибавь к нему 1; в противном случае не изменять его. Вывести полученное число. Кумир
Дано целое число. если оно является положительным, то прибавь к нему 1; в противном случае не изменять его. Вывести полученное число. Кумир
Гость
Ответ(ы) на вопрос:
Гость#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
say _solve_(shift(@ARGV));
sub _solve_{
return('Not a number') if(int($exec_arg) !~ /^[\d].*?$/six)
if(int($exec_arg) >= 0 ){
return(int($exec_arg)++);
}else{
return($exec_arg);
}
}
Не нашли ответ?
Похожие вопросы