• Доброго времени суток!!!Помогите пожалуйста с задачей в Turbo Pascal. Даны два целых числа.Если они оба положительны,то большее из них заменить их средним
    арифметическим.Если оба отрицательны,то поменять знак у
    меньшего из них.Иначе каждое из них удвоить.

Ответы 2

  • Спасибо,подредактировал,всё заработало=))
  • Если надо составить программу, то вот, держи.program apple;var a,b:integer;begin readLn(a,b); if a>0 && b>0 then begin if a>b a:=(a+b)/2; else b:=(a+b)/2; end else a<0 && b<0 begin if(a<b)a:=a*-1; else b:=b*-1; end else begin a:=a*2; b:=b*2; endend.Могут быть небольшие оплошности т.к. не работаю с паскалем, но знаю некоторые основы.
    • Автор:

      toni
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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