Напишите программу.Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.
Напишите программу.Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.
Гость
Ответ(ы) на вопрос:
Гостьvar mas:array[1..3] of integer;
begin
for var i := 1 to 3 do
begin
read(mas[i]);
if mas[i] >= 0 then mas[i] := sqr(mas[i])
else mas[i] := sqr(mas[i]) * sqr(mas[i]);
end.
Гость// 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
Не нашли ответ?
Похожие вопросы