Милослав
5 год назад
задано действительное число K. Eсли к отрицательное то значение X вычислить по формуле X=K^2, если К больше нуля или равно нулю- по формуле X=K^3Написать программу на языке паскаль
ОТВЕТЫ
Савелий
Oct 24, 2020
Var
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.
376
Смежные вопросы:
