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

  • даны 2 числа меньшее из них заменить полусуммой,а большее число заменить их удвоенным произведением

Ответы 1

  • Program n1;Uses CRT;Var a,b: integer;beginWriteln('Vvedite chisla');Readln(a,b);If a>b then writeln(2*a*b,' ',a+b/2:2:2) else if a=b then writeln('ravny!') else writeln(a+b/2:2:2,' ',2*a*b);readlnend.

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

Еще вопросы

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

Войти через Google

 или

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

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

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