напишите программу.Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
Пример
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
Пример
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Новые вопросы