Информатика по программирование

Смотрим на прилагаемую картинку.
Первая строка - разряды, т.е показатели степени двойки.
Вторая - значения степеней двойки, например, 2^8=256
В третьей строке делаем вычисления.
Записали исходное число 994. Смотрим ближайший разряд - девятый - там 512.
994>512, значит такая степень двойки в числе 994 содержится. Пишем в девятом разряде следующей строки 1, а рядом с 994 (в 9 разряде пишем остаток 994-512=482.
Повторяем процесс. В 8 разряде записано 256. 482>256. Снова 1 в четвертую строку и разность 482-256=98 в соседний, 7 разряд.
Так продолжается, пока не дойдем до 5 разряда. У нас там число 2, а в соседнем разряде 16. 2>16, поэтому разряд пропускаем, а в 4й строке пишем ноль. Так поступаем, пока не придем в разряд 1. 2=2, поэтому делаем вычитание, пишем 1 в 4ю строку, а в третьей пишем, как всегда, разность 2-2=0. Все. Остальные разряды четвертой строки заполняем нулями.
Двоичное представление числа - это 4-я строка.

994₁₀ = 111110010₂

p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);

Объяснение:

Единственная проблема тут - как записать кубический корень. В паскале есть функция power(a, p), которая возводит a в степень p, но если p не целое, оно работает только для положительных (для p > 0 неотрицательных) a. Кубический корень же определён для всех a.

Решение такое: посчитать кубический корень для модуля , а потом поставить такой же знак, что и под корнем.

Полностью программа может выглядеть, например, так:

var p, y, a: real;

begin

 read(y, a);

 p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);

 write(p)

end.