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

madam7952 madam7952    3   23.08.2019 17:00    1

Ответы
Panda2368 Panda2368  05.10.2020 14:58
Var
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика