Задано действительное число K. Eсли к отрицательное то значение X вычислить по формуле X=K^2, если К больше нуля или равно нулю - по формуле X=K^3

Написать программу на языке паскаль

Question

Игорька

18 февраля, 16:59

+2

Ответы (1)

Знаешь ответ?

Оскар · Answer 1

Var

K:real;

Begin

Write ('K = ');

Read (K);

if K<0 then Write ('x = ', K*K)

else Write ('x = ', K*K*K)

End.