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

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

Question

Аристид

27 июня, 13:11

+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.