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

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

Question

Исай

24 февраля, 00:02

+3

Ответы (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.