Помогите пожалуйста!! СРОЧНО!
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень – отрицательные.
Нужно написать для Basic!
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.
Вроде так затестируй на паскале у меня нет но суть такова вроде должна работать
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
