profile
Опубликовано 6 лет назад по предмету Информатика от Шамиль1

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

 

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

 

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

  1. Ответ
    Ответ дан pashaklybik

    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.

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

Самые новые вопросы