Даны три действительных числа. Возвести в 5 степень те из них, значения которых...

Question

Даны три действительных числа. Возвести в 5 степень те из них, значения которых отрицательны, и в четвертую степень не отрицательные.

Comments

print(*list(map(lambda x: x ** (4 + (x < 0)), map(float, input().split()))))

---

Если играть в игру "запутай себя"

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите через пробел три числа',3);
  a.Select(x-> sqr(sqr(x))*(x<0 ? x : 1.0)).Println<br>end.

Пример
Введите через пробел три числа 23.5 -18.6 6.2
304980.0625 -2226202.78176 1477.6336