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

Question

Информатика

Ионична

2 июня, 03:29

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

+3

Ответы (1)

Знаете ответ?

Рося · Answer 1

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.