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.

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

Answer 2

Конечно, я могу помочь! Вот код на Basic, который решает данную задачу:

cssCopy code
INPUT a, b, c

IF a >= 0 THEN
    a = a ^ 2
ELSE
    a = a ^ 4
END IF

IF b >= 0 THEN
    b = b ^ 2
ELSE
    b = b ^ 4
END IF

IF c >= 0 THEN
    c = c ^ 2
ELSE
    c = c ^ 4
END IF

PRINT "a = "; a
PRINT "b = "; b
PRINT "c = "; c

В этом коде мы сначала считываем значения трех чисел a, b и c с помощью команды INPUT. Затем мы проверяем каждое число на неотрицательность с помощью конструкции IF. Если число неотрицательно, мы возводим его в квадрат с помощью оператора возведения в степень ^2. Если число отрицательно, мы возводим его в четвертую степень с помощью оператора ^4.

Наконец, мы выводим результаты для каждого числа с помощью команды PRINT.

Надеюсь, это помогло! Если у вас есть какие-либо вопросы или необходима дополнительная помощь, не стесняйтесь спрашивать!