Задать вопрос Регистрация
Помочь другим

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

     

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

     

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

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

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

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years