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

Question

Информатика

Макся

14 декабря, 22:55

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

+2

Ответы (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.