// PascalABC.Net 3.0, сборка 1076
var
s,ss:string;
i,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
n:=Length(s); p:=Pos(',',s);
if p in [1..n-1] then begin
ss:=Copy(s,p+1,n-p);
n:=Length(ss); p:=Pos(',',ss);
if p=0 then Writeln(ss)
else Writeln(Copy(ss,1,p-1))
end
else Writeln('*** Нечего выводить ***')
end.
<u><em>Тестовые решения:</em></u>
Введите строку: 01234,45679,1011213,14151617
45679
Введите строку: 01234,45679101121314151617
45679101121314151617
Введите строку: 01234,
*** Нечего выводить ***
1600 бит в килобайте 1600
# coding: utf-8
# Python 3.X
def cubic_root(n):
if n < 0:
n *= -1
s = -1
else:
s = 1
for x in range(0, n + 1):
if x ** 3 == n:
print('корень кубический из {} = {}'.format(s * n, s * x))
return
print('нет целого корня из', s * n)
Для перевода шестнадцатеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания шестнадцатеричной системы счисления на соответствующие цифры в разрядах шестнадцатеричного числа.
Для конвертации шестнадцатеричного числа в десятичное необходимо каждую цифру (начиная справа) шестнадцатеричного числа умножить на 16 в степени, соответствующей разряду этой цифры. Например, рассмотрим шестнадцатеричное число C92116. Начните с первой цифры справа (1) и умножьте ее на 160(первый разряд задается нулевой степенью); увеличивайте показатель степени каждый раз, когда вы переходите к следующей цифре (справа налево):116 = 1 x 160 = 1 x 1 (все цифры представлены в десятичной системе за исключением оговоренных случаев)216 = 2 x 161 = 2 x 16916 = 9 x 162 = 9 x 256C = C x 163 = C x 4096
Преобразуйте буквенные символы в десятичные цифры. Цифры имеют одинаковое значение как в десятичной, так и в шестнадцатеричной системах (например, 716 = 710). Для конвертирования буквенных символов шестнадцатеричной системы в цифры десятичной системы смотрите следующий список:A = 10B = 11C = 12D = 13E = 14F = 15
ЕА16=234
Удачи в решении))