Question

Помогите пожалуйста!! СРОЧНО!

 

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

 

Нужно написать для Basic!

Answer 1

var a,b,c:integer;

begin

 read(a,b,c);

if a<0

then a:=a*a*a*a

else a:=a*a;

if b<0

then b:=b*b*b*b

else b:=b*b;

if c<0

then c:=c*c*c*c

else c:=c*c;

 write (a,' ',b,' ',c);

end.

Вроде так затестируй на паскале у меня нет но суть такова вроде должна работать