Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • VarK:real;BeginWrite('K = ');Read(K);if K<0 then Write('x = ',K*K)else Write('x = ',K*K*K)End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years