Ввести в оперативную память значение целочисленной переменной x
var x: integer
var x:real
write(x)
read(x)
Вывести на экран монитора значение целочисленной переменной x
var x: integer
var x:real
write(x)
rad(x)

Question

Информатика: Ввести в оперативную память значение целочисленной переменной x var x: integer var x:real write(x) read(x) Вывести на экран монитора значение целочисленной переменной x var x: integer var x:real write(x) rad(x)

ANGELINA69Z · Accepted Answer

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

Объяснение:

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

Решение такое: посчитать кубический корень для модуля $\sqrt[3]{|a|}=|a|^{1/3}$ , а потом поставить такой же знак, что и под корнем.

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

var p, y, a: real;

begin

read(y, a);

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

write(p)

end.

MOGZ ответил