Задано действительное число K. Eсли к отрицательное то значение X вычислить по формуле X=K^2, если К больше нуля или равно нулю- по формуле X=K^3 Написать программу на языке паскаль
Задано действительное число K. Eсли к отрицательное то значение X вычислить по формуле X=K^2, если К больше нуля или равно нулю- по формуле X=K^3
Написать программу на языке паскаль
Гость
Ответ(ы) на вопрос:
ГостьVar
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.
Не нашли ответ?
Похожие вопросы